在组合的ggplot2图上显示图例 - 堆积条和线

Question

我有一个ggplot，它是堆叠图和折线图的组合

  ggplot() +
       geom_bar(data=smr2, aes(x=Pract, y=value, fill=variable), stat='identity') + 
       theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5)) +
       geom_line(data=summarised[,1:3], aes(x=Pract,y=YTDTarget, group=1),size = 1) +
       geom_point(data=summarised[,1:3], mapping = aes(x = Pract, y = YTDTarget),size=2.5)+
       geom_text_repel(data=summarised[,1:3], aes(x=Pract,y=YTDTarget,label=YTDTarget), size = 5)

我想为折线图添加图例。但是group=1部分似乎阻止了这一点。

我创建的图表为

另外，请帮助将图例的名称从变量更改为“Actuals” 此图用于比较目标（线图）与实际达到的（堆叠条形图）。

Answer 1

请试试这个：

要geom_line添加虚拟变量（将其添加到图例中 - 在这种情况下，我使用linetype）。

geom_line(data = summarised[,1:3], 
          aes(Pract, YTDTarget, group = 1, linetype = ""),
          size = 1)

要更改图例名称，请将labs()添加到地块中。

labs(fill = "Actuals",
     linetype = "My Line Name")