R 在分组图和不分组图中堆叠条形图

有人已经解释了分组条形图中的堆叠条形图

---

test假设所有代码都在一个数据集中，则可以重用当前代码，只需在
facet\u 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'))

melted2
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'))