分组（两次）和堆叠的条形图，带有刻面包装

Question

这是我

mydata = data.frame (student =c("A","A","A","A","A","A","A","A","A",
"A","A","A","A","A","A","A","B","B","B","B","B","B","B","B","B","B",
"B","B","B","B","B","B"),
subject = c("His","His","His","His","His","His","His","His",
"Geo", "Geo","Geo","Geo","Geo","Geo","Geo","Geo","His","His","His","His","His","His",
 "His","His","Geo","Geo","Geo","Geo","Geo","Geo","Geo", "Geo"), 
year = c("2001","2001","2001","2001","2002","2002",
"2002","2002","2001","2001","2001","2001","2002","2002","2002","2002", "2001","2001","2001","2001","2002","2002","2002",
"2002", "2001","2001","2001","2001","2002","2002","2002","2002"), majortype=c("total", "total", "passed", 'passed',
"total", "total", "passed", 'passed',"total", "total", "passed", 'passed',
"total", "total", "passed", 'passed', "total", "total", "passed", 'passed',
"total", "total", "passed", 'passed',"total", "total", "passed", 'passed',
"total", "total", "passed", 'passed'),
 type=c("low income", "high income", "low income", "high income",
 "low income", "high income", "low income", "high income", "low income", 
"high income", "low income", "high income",  "low income", "high income",
 "low income", "high income", "low income", "high income", "low income", 
"high income", "low income", "high income", "low income", "high income",  
"low income", "high income", "low income", "high income", "low income", 
"high income", "low income", "high income"), 
 value = c(104,106,67,89,34, 67,12,56,97,56,67,45,123,134,100,111, 124,98,
100,90,78,90,65,80,123,78,100,98, 77,67,56,63))

试图实现的示例数据（由Majortype），并分组（按年和类型）进行分组，然后由学科和学生包裹。因此，我有以下代码：

ggplot(mydata, aes(fill=majortype, y=value, x=year)) + 
  geom_bar(position="dodge", stat="identity") +
  facet_wrap(student~subject)+
  xlab("") + ylab("Number of students")+ labs(fill="")+
  theme_minimal() +
  theme(text = element_text(size=15),
        plot.title = element_text(size=20, face="bold"),
        axis.text  = element_text(size=9))

它几乎给了我我想要的东西，但是我确实在努力将低收入和高收入数量的堆叠栏放入每个单独的酒吧内。理想情况下，我很想让低收入是一种深色的阴影，然后每个群体中的高收入数量是这些颜色的较浅阴影。

我也尝试了以下代码，这给了我类型的堆叠，但是现在我似乎无法按年和Majortype进行分组。每年，我都想要两个堆叠的酒吧，为总学生提供红色（由低收入与高收入堆叠），然后绿色的学生（由低收入与高收入堆积）。

ggplot(mydata, aes(fill=type, y=value, x=year)) + 
  geom_bar(position="stack", stat="identity") +
  facet_wrap(student~subject)+
  xlab("") + ylab("Number of students")+ labs(fill="")+
  theme_minimal() +
  theme(text = element_text(size=15),
        plot.title = element_text(size=20, face="bold"),
        axis.text  = element_text(size=9))

任何帮助将不胜感激！如果有帮助，我希望创建这样的东西：

Answer 1

更新了OP关于想要躲避和堆叠的条的评论：由majortype躲避；由类型堆叠。

组合躲避和堆叠的条不是GGPLOT的功能： https://github.com/tidyyverse/ ggplot2/desiss/2267

然而，在此链接的帮助下： ggplot2-带有堆栈和道奇的酒吧图以及一些其他修补，您可以尝试一下...

library(ggplot2)
library(dplyr)

# prepare data so that values are in effect stacked and in the right order

dat <- 
  mydata %>% 
  group_by(year, subject, student, majortype) %>% 
  arrange(type) %>% 
  mutate(val_cum = cumsum(value))

ggplot(dat, aes(fill = majortype, y = val_cum, x = year)) +
  geom_col(data = filter(dat, type == "low income"), position = position_dodge2(width = 0.9), alpha = 0.5)+
  geom_col(data = filter(dat, type == "high income"), position = position_dodge2(width = 0.9), alpha = 1) +
  geom_tile(aes(y = NA_integer_, alpha = type)) +
  scale_fill_manual(breaks = c("passed", "total"),
                    labels = c("High income - passed", "High income - total"),
                    values = c("red", "blue"))+
  guides(alpha = guide_legend(override.aes = list(fill = c("red", "blue"), alpha = c(0.5, 0.5))))+
  scale_alpha_manual(breaks = c("high income", "low income"),
                    labels = c("Low income - passed", "Low income - total"),
                    values = c(1, 0.5))+
  facet_wrap(student~subject)+
  labs(x = NULL, 
       y = "Number of students",
       fill = NULL,
       alpha = NULL)+
  theme_minimal() +
  theme(text = element_text(size=15),
        plot.title = element_text(size=20, face="bold"),
        axis.text  = element_text(size=9))

^由