R 我可以在同一个绘图中合并面积图和条形图吗？

我想用两种不同的信息构建一个图：我想在区域图中显示一些信息（作为背景：I、II和III四分位数）和条形图中的不同信息（2013年案例）

我的数据如下所示：

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

---

AreaAlajuela尝试使用
geom\u col（数据=BarraAlajuela，aes（x=流行病学周，y=病例），大小=1，color=“black”，fill=“black”）
或更短的
geom\u col（数据=BarraAlajuela，大小=1，color=“black”，fill=“black”）
。感谢您的帮助！它运行得很好！：-）根据一般经验，切勿在
aes（）中使用
$
。使用
data=
参数指向不同的数据源。此外，您只能得到一个填充比例。您设置了三种颜色，但试图在新图层的aes（）中添加第三种颜色。包括刻度中的所有值，或者像stefan所做的那样将填充移到aes（）之外。非常感谢！这是非常有用的建议！！！！