如何在 ggplot2 中为用 stat_summary 制作的线条添加图例？

Question

假设我正在处理以下（假）数据：

var1 <- runif(20, 0, 30)
var2 <- runif(20, 0, 40)
year <- c(1900:1919)
data_gg <- cbind.data.frame(var1, var2, year)

我融化了 ggplot 的数据：

data_melt <- melt(data_gg, id.vars='year')

然后我为 var1 和 var2 制作了一个分组条形图：

plot1 <- ggplot(data_melt, aes(as.factor(year), value)) +   
  geom_bar(aes(fill = variable), position = "dodge", stat="identity")+
  xlab('Year')+
  ylab('Density')+
  theme_light()+
  theme(panel.grid.major.x=element_blank())+
  scale_fill_manual(values=c('goldenrod2', 'firebrick2'), labels=c("Var1", 
  "Var2"))+
  theme(axis.title = element_text(size=15),
        axis.text = element_text(size=12),
        legend.title = element_text(size=13),
        legend.text = element_text(size=12))+
  theme(legend.title=element_blank())

最后，我想添加一行显示每年的累计总和 (Var1 + Var2)。我设法使用 stat_summary 实现了它，但它没有出现在图例中。

plot1 + stat_summary(fun.y = sum, aes(as.factor(year), value, colour="sum"), 
group=1, color='steelblue', geom = 'line', size=1.5)+
scale_colour_manual(values=c("sum"="blue"))+
labs(colour="")

如何让它出现在图例中？

Answer 1

准确地说，如果不是 ggplot2 专家，您需要在代码中更改的是从 stat.summary 调用的 aes 外部删除颜色参数。

stat_summary(fun.y = sum, aes(as.factor(year), value, col="sum"), group=1, geom = 'line', size=1.5)

显然，aes 函数外部的颜色参数（因此将颜色定义为参数）覆盖美学映射。因此，ggplot2无法显示图例中的映射。

就组参数而言，它用于连接点以制作线，详细信息您可以在此处阅读：ggplot2 line chart gives "geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?" 但是没有必要将它添加到 aes 调用中。事实上，如果你把它留在图表之外，图表将不会改变。

如何在 ggplot2 中为用 stat_summary 制作的线条添加图例？

How can I add the legend for a line made with stat_summary in ggplot2?

r

add

legend

bar-chart

ggplot2