如何在ggplot堆栈条形图上添加总线

Question

我很难在这个叠加的条形图的顶部添加一行：

A

我收到了这个奇怪的警告

  

geom_path：每组只包含一个观察。你需要吗？   调整群体审美？

并且理想情况下，该线为黑色，也有黑点。

Answer 1

只需将group = 1添加到aes()中的geom_line()：

library(ggplot2)

ggplot() + 
  geom_bar(data = demandDriversdf2_1, aes(x=year, y=driver, fill=variable),stat = "identity") +
  geom_bar(data = demandDriversdf2_2, aes(x=year, y=driver, fill=variable),stat = "identity") +
  geom_line(data = subset(demandDriversdf2, variable=="Total"),   
            aes(x=year, y=driver, group = 1)) +
  scale_fill_brewer(palette = 2, type = "qual")

原因是：

  

对于折线图，必须对数据点进行分组，以便知道要连接的点。在这种情况下，它很简单 - 所有点都应该连接，所以group = 1。当使用更多变量并绘制多行时，行的分组通常由变量完成。

参考：食谱R，章节：图形Bar_and_line_graphs_（ggplot2），折线图。