在ggplot2中叠加线条图

Question

我使用ggplot2创建了一个多线图，其中每一行代表一个相对于月绘制的年份（点击下面的链接）。 体积在y轴上表示。

这是我用来绘制上图的代码：

ggplot(data=df26, aes(x=Month, y=C1, group=Year, colour=factor(Year))) + 
    geom_line(size=.75) + geom_point() +    
    scale_x_discrete(limits=c("Jan","Feb","Mar","Apr","May","Jun","Jul",
        "Aug","Sep","Oct","Nov","Dec")) + 
    scale_y_continuous(labels=comma) + 
    scale_colour_manual(values=cPalette, name="Year") +    
    ylab("Volume")   

问题：如何在图中包含另一条线，表示每个月内的平均体积，并能够修改该线的线宽和颜色？ 到目前为止，我生成正确代码的所有尝试都没有成功（很可能是因为我使用R的相对新手状态）。 任何帮助深表感谢！

编辑： Dataframe df26在下面提供（根据评论者的要求）：

 Year Month C1 2010 Jan NA 2010 Feb NA 2010 Mar NA 2010 Apr NA 2010 May NA 2010 Jun NA 2010 Jul NA 2010 Aug 183.6516764 2010 Sep 120.6303348 2010 Oct 85.31007613 2010 Nov 13.7347988 2010 Dec 20.93950545 2011 Jan 13.35780833 2011 Feb 14.16910945 2011 Mar 9.786319721 2011 Apr 41.24848885 2011 May 122.3014387 2011 Jun 422.4012809 2011 Jul 539.8569592 2011 Aug 527.6301222 2011 Sep 385.8199781 2011 Oct 201.7846973 2011 Nov 27.91934061 2011 Dec 7.919004379 2012 Jan 10.22724424 2012 Feb 10.64391791 2012 Mar 88.06585438 2012 Apr 124.0320675 2012 May 325.1399457 2012 Jun 465.938168 2012 Jul 567.2273488 2012 Aug 459.769634 2012 Sep 333.8636373 2012 Oct 102.0607986 2012 Nov 23.18822051 2012 Dec 15.64841121 2013 Jan 7.458238256 2013 Feb 4.34972039 2013 Mar 26.2019396 2013 Apr 38.82781323 2013 May 257.0920645 2013 Jun 357.594195 2013 Jul 383.2780483 2013 Aug 456.469314 2013 Sep 319.3616298 2013 Oct NA 2013 Nov NA 2013 Dec 17.01748185 

Answer 1

你需要计算平均值。 然后你可以绘制它们。 使用dplyr

library(dplyr)
df26means <- df26 %>%
    group_by(Month) %>%
    summarize(C1 = mean(C1, na.rm = T))

然后将其添加到您的情节中：

ggplot(data=df26, aes(x=Month, y=C1, group=Year, colour=factor(Year))) + 
    geom_line(size=.75) + geom_point() + 
    scale_x_discrete(limits=c("Jan", "Feb", "Mar", "Apr", "May", "Jun",
                              "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")) + 
    scale_y_continuous(labels=comma) + 
    scale_colour_manual(values=cPalette, name="Year") + 
    ylab("Volume") +
    geom_line(data = df26means, aes(group = 1), size = 1.25, color = "black")

我建议使用annotate在图上添加一段漂亮的文本，将该行标识为平均线。 为了得到它的传说，你可能需要设置df26means$Year = "Mean" ，转换df26$Year为一个字符， rbind两个dataframes在一起，然后将其转换Year来的一个因素。 绘图代码会更简单，但数据争论有点复杂。