如何在ggplot中的同一图例上合并颜色和填充aes

Question

我正在尝试制作一个图表，我需要在同一个图例上结合填充和颜色。 我最接近实现这一点的是下面的示例，但它在线条周围引入了一个正方形（参见下面的图例以了解 pce）。 我已经研究了将颜色和形状的图例组合成一个图例，以及如何在 ggplot 中合并颜色、线条样式和形状图例，但它们的解决方案似乎不适用于填充和颜色。 在这种情况下，我得到这个围绕线的正方形（参见下面的图例）。 我也不希望将它们全部作为答案中建议的正方形，以将合并颜色和填充图例合并为一个。

library(tidyverse)



econ_names <-c(
  "pce",    
  "pop",    
  "psavert",
  "uempmed",
  "unemploy"
  
)



some_fills <- c(NA, "#FFB400", "#FF4B00", "#65B800", "#00B1EA")
some_cols <- c("#003299", rep(NA,4))



names(some_fills)<- econ_names
names(some_cols)<- econ_names


ggplot(data = economics_long,aes(date,value01,col = variable,fill = variable))+
  geom_col(data = subset(economics_long,variable!="pce"))+
  geom_line(data = subset(economics_long,variable=="pce"), size = 1.05)+
  scale_colour_manual(values = some_cols)+
  scale_fill_manual(values = some_fills)+
  theme_minimal()

^{由reprex package (v1.0.0) 于 2021 年 3 月 19 日创建}

Answer 1

这可以通过如下设置列的线型来解决：

ggplot(data = economics_long,aes(date,value01,col = variable,fill = variable))+
  geom_col(data = subset(economics_long,variable!="pce"), linetype = 0)+
  geom_line(data = subset(economics_long,variable=="pce"), size = 1.05)+
  scale_colour_manual(values = some_cols)+
  scale_fill_manual(values = some_fills)+
  theme_minimal() 

产生