r - 如何更改ggplot中graphique的格式以结合geom_col和geom_surface

Question

我正在尝试使用下面的代码用 ggplot 绘制我的数据框

p1 <- ggplot(dates2, aes(x=periode_ap, y=pourcentage_parc, fill=apport))+
        geom_col(position = position_stack(reverse = TRUE))+
        ylim(0,100)+
        scale_fill_manual(values=mycolors, name="")+
        theme_light()

我得到了这个图形 ，但我想要的是这个::

请问如何更改我的代码以获得正确的图形！！！或者我必须使用另一个包而不是 ggplot 来做到这一点！

Answer 1

如果您发布您的数据，我们可以使用它。否则，这是一个应该起作用的例子。将数据与数据结合使用，geom_area并分别为每个geom_line数据进行调整fill=和美学。color=

df <- data.frame(
  x=c(4,5,6,7,8:15,10,11,12,12,13,14,15),
  y=c(0,100,0,0,20,20,40,10,10,10,10,0,0,50,0,0,60,60,0),
  id=c(rep('Big Peak',3), rep('Other Thing',9),rep('Another Item',3),rep('At the end',4))
)

ggplot(df, aes(x,y)) + theme_bw() + xlim(0,20) +
  geom_area(aes(fill=id), alpha=0.2, position='identity') +
  geom_line(aes(color=id), size=0.8) +
  scale_y_continuous(expand=expansion(c(0,0.22))) +
  theme(legend.position=c(0.8,0.8), legend.background = element_rect(color='black'))

一个潜在的重要美学是将scale_y_continuous扩展调整为 0 作为下限，以避免出现空白。否则，您的区域几何图形将在 x 轴线上“浮动”。