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

【问题标题】：How to add total line on a ggplot stack bar chart如何在ggplot堆栈条形图上添加总线
【发布时间】：2018-05-26 02:41:05
【问题描述】：

我很难在这个堆叠条形图的总数上添加一条线：

demandDriversdf = structure(list(year = structure(c(1356998400, 1388534400, 1420070400,
                                      1451606400, 1483228800), tzone = "GMT", tclass = c("POSIXct",
                                                                                         "POSIXt"), class = c("POSIXct", "POSIXt")), one= c(12.4882571461364,
                                                                                                                                            13.0984912135388, 12.1908055157534, 8.35335266490711, 4.38593754938248
                                                                                         ), two= c(8.73113484771066, -4.34931681021004, -3.04955505552055,
                                                                                                   -1.69136803847247, 3.06500464975644), three= c(0.0669199673877559,
                                                                                                                                                -0.194488564805058, 0.721483847234409, 2.85829802643513, 6.14894193920574
                                                                                                   ), four= c(6.98748008979101, 3.7122726468811, -15.0029846301367,
                                                                                                                     -20.3768539034347, 9.38948700033012)), .Names = c("year", "one",
                                                                                                                                                                       "two", "three", "four"), row.names = c("2013-01-01", "2014-01-01",
                                                                                                                                                                                                                "2015-01-01", "2016-01-01", "2017-01-01"), class = "data.frame")

    demandDriversdf2 = reshape2::melt(demandDriversdf, id.vars=c("year"), value.name="driver")
    rowS = rowSums(demandDriversdf[,setdiff(colnames(demandDriversdf),"year")])
    demandDriversdf2 = rbind(demandDriversdf2, data.frame(year = names(rowS), variable="Total", driver = rowS))
    demandDriversdf2$year=substr(demandDriversdf2$year,1,4)
    demandDriversdf2_1 <- subset(demandDriversdf2,driver >= 0 & variable!="Total")
    demandDriversdf2_2 <- subset(demandDriversdf2,driver < 0 & variable!="Total")
    gdemandDrivers = ggplot2::ggplot() + 
      ggplot2::geom_bar(data = demandDriversdf2_1, aes(x=year, y=driver, fill=variable),stat = "identity") +
      ggplot2::geom_bar(data = demandDriversdf2_2, aes(x=year, y=driver, fill=variable),stat = "identity") +
      ggplot2::geom_line(data = subset(demandDriversdf2, variable=="Total"), aes(x=year, y=driver)) +
      ggplot2::scale_fill_brewer(palette = 2, type = "qual")

我收到了这个奇怪的警告

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

理想情况下，希望线条为黑色，同时带有黑点。

【问题讨论】：

标签： r ggplot2 bar-chart geom-bar

【解决方案1】：

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

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。当使用较多的变量并绘制多条线时，通常通过变量来对线进行分组。

参考：Cookbook for R，章节：图形 Bar_and_line_graphs_(ggplot2)，折线图。

【讨论】：