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创建的行添加图例？

1 个答案: