誰かがすでにここでグループ化された棒グラフ内の積み上げ棒について説明しました
test <- data.frame(person = c("group 1", "group 2", "group 3"),
value1 = c(100, 150, 120), # male
value2 = c(25, 30, 45) , # female
value3 = c(25, 30, 45), # male
value4 = c(100, 120, 150), # female
value5 = c(10, 12, 15), # male
value6 = c(50, 40, 70)) # female
library(reshape2) # for melt
melted <- melt(test, "person")
melted$cat <- ''
melted[melted$variable == 'value1' | melted$variable == 'value2',]$cat <- "sub group 1"
melted[melted$variable == 'value3' | melted$variable == 'value4',]$cat <- "sub group 2"
melted[melted$variable == 'value5' | melted$variable == 'value6',]$cat <- "sub group 3"
melted$gender <- ''
melted[melted$variable %in% sprintf("value%i",c(1,3,5)),]$gender <- "female"
melted[melted$variable %in% sprintf("value%i",c(2,4,6)),]$gender <- "male"
p = ggplot(melted, aes(x = cat, y = value, fill = gender))
p +
geom_bar(stat = 'identity', position = 'stack') +
facet_grid(~ person) +
scale_fill_manual(values = c("orangered","dodgerblue2")) +
theme(panel.background = element_rect(fill = 'white'))
別のグループを追加したいのですが、そのグループ内にサブグループはありません。ggplot2でそれを実行できるコマンドまたは関数はありますか?
ありがとうございました
すべてが1つのデータセットに含まれていると仮定すると、次のfacet_grid()
行にわずかな追加を加えるだけで、現在のコードを再利用できます。
melted2 <- rbind(melted,
data.frame(person = rep("group 4", times = 2),
variable = NA,
value = c(80, 20),
cat = "no subgroup",
gender = c("female", "male")))
ggplot(melted2,
aes(x = cat, y = value, fill = gender)) +
geom_col(position = 'stack') + # geom_col() is equivalent to geom_bar(stat = "identity")
facet_grid(~ person, scales = "free_x", space = "free_x") +
scale_fill_manual(values = c("orangered", "dodgerblue2")) +
theme(panel.background = element_rect(fill = 'white'))
scales = "free_x"
各ファセットに、そのファセットに表示される猫の値のみを表示するように指示します。space = "free_x"
すべてのバーが同じ幅になるように、それに応じて各ファセットのサイズを調整します。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加