问题描述
我想用两种不同的信息构建一个图表：我想在面积图中显示一些信息（作为背景：I、II 和 III Quartil）和不同的信息作为条形图 (2013_Cases)。
我的数据如下所示：
County Epidemiological_Week Quartil Cases
Alajuela 1 I 114.6142048
Alajuela 2 I 243.2065231
Alajuela 3 I 194.9624170
Alajuela 1 II 243.5355373
Alajuela 2 II 206.6849481
Alajuela 3 II 224.1548347
Alajuela 1 III 218.2216145
Alajuela 2 III 244.0454089
Alajuela 3 III 186.7701513
Alajuela 1 2013_Cases 243.2889834
Alajuela 2 2013_Cases 159.3755736
Alajuela 3 2013_Cases 165.0704465
我想绘制这样的图（我在 Exel 中制作的）：
所以，我写了如下代码：
AreaAlajuela <- subset(Alajuela,Quartil!="2013_Cases")
BarraAlajuela <- filter(Alajuela,Quartil=="2013_Cases")
AreaAlajuela$Quartil <- factor(AreaAlajuela$Quartil,levels = c("III","II","I"))
cAlajuela <- ggplot(AreaAlajuela,aes(x=Epidemiological_Week,y= Cases,fill=Quartil)) + geom_area()
cAlajuela2 <- cAlajuela + scale_fill_manual(values=c("red","yellow","green"))
cAlajuela3 <- cAlajuela2 + scale_x_continuous("Epidemiological weeks",labels= as.numeric(AreaAlajuela$Epidemiological_Week),breaks = as.numeric(AreaAlajuela$Epidemiological_Week))
cAlajuela4 <- cAlajuela3 + theme_bw() + theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())
cAlajuela4
cAlajuela5 <- cAlajuela4 + geom_col(aes(x=as.numeric(BarraAlajuela$Epidemiological_Week),y=as.numeric(BarraAlajuela$Cases),size=1,color="black",fill="black" ))
cAlajuela5
但是我收到了这个错误： 错误：Aesthetics 必须是长度 1 或与数据 (156) 相同：x 和 y 并且不知道如何修复它！
从现在开始，感谢您的帮助！
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）