ggplot2使图例键填充透明

Question

我正在尝试使 ggplot 的图例键填充透明。我按照 Hadley 的 ggplot2 指南之一的说明更改了图例键填充，但由于某种原因，当我将填充设置为透明时，它会填充为灰色。即使我将图例键填充设置为白色，它在最终绘图中仍然显示为灰色。

这是一个例子：

library(ggplot2)

data1 = c(0,10, 11, 23, 33, 40, 41, 50, 59, 68, 76, 88, 90, 99)
data2 = c(2, 8, 10, 22, 39, 47, 49, 55, 62, 70, 76, 86, 88, 95)

df = data.frame(data1, data2)

(plot = ggplot() +
  geom_smooth(data=df, aes(data1, data2,colour="sample1"))+
  geom_abline(intercept=0, slope=1,linetype="dashed", color = "black")+
  scale_x_continuous(expand=c(0,0), limits=c(0,100)) + 
  scale_y_continuous(expand=c(0,0), limits=c(0,100))+
  theme_classic()+
  labs(y="data2", x="data1", 
       title="sample 1 data1 vs data2") +
  theme(plot.title = element_text(size=18, face="bold"),
        legend.key = element_rect(colour = "transparent", fill = "white"),
        legend.justification = c(1,0), legend.position = c(1,0))+
  scale_color_discrete(name="Sample") )

如果我设置 theme(legend.key = element_rect(colour = "transparent", fill = "red")) 我得到以下情节：

看来我可以更改图例键填充，但不能更改为白色或透明色。

有谁知道我做错了什么，或者如果没有办法让图例键填充透明/白色？

编辑：设置theme(legend.key = element_rect(fill = alpha("white", 0.0))) 不能解决问题。

请看这里：

library(ggplot2)
library(scales)

data1 = c(0,10, 11, 23, 33, 40, 41, 50, 59, 68, 76, 88, 90, 99)
data2 = c(2, 8, 10, 22, 39, 47, 49, 55, 62, 70, 76, 86, 88, 95)

df = data.frame(data1, data2)

(plot = ggplot() +
  geom_smooth(data=df, aes(data1, data2,colour="sample1"))+
  theme_classic()+
  labs(y="data2", x="data1", 
       title="sample 1 data1 vs data2") +
  theme(plot.title = element_text(size=18, face="bold"),
        legend.key = element_rect(colour = "transparent", fill = alpha("red", 0)),
        legend.justification = c(1,0), legend.position = c(1,0))+
  scale_color_discrete(name="Sample") )

EDIT2：如果我使用geom_line() 而不是geom_smooth 我可以将图例键填充设置为NA，所以这一定是因为geom_smooth 中的行有一个灰色区域作为置信区间在它周围，因此传说中的钥匙反映了它的外观。

(plot = ggplot() +
  geom_smooth(data=df, aes(data1, data2,colour="sample1"))+
  geom_abline(intercept=0, slope=1,linetype="dashed", color = "black")+
  scale_x_continuous(expand=c(0,0), limits=c(0,100)) + 
  scale_y_continuous(expand=c(0,0), limits=c(0,100))+
  theme_classic()+
  labs(y="data2", x="data1", 
       title="sample 1 data1 vs data2") +
  theme(plot.title = element_text(size=18, face="bold"),
        legend.key = element_rect(colour = NA, fill = NA),
        legend.justification = c(1,0), legend.position = c(1,0))+
  scale_color_discrete(name="Sample") )

Answer 1

要利用透明度级别，可以使用：

对于整个传说：

theme(legend.background=element_rect(fill = alpha("white", 0.5)))

alpha("white", 0) 像element_blank() 一样完全透明， 和alpha("white", 1) 没有透明度。

现在，对于键 - 如果键和背景具有不同的透明度：

theme(legend.background=element_rect(fill = alpha("white", 0)),
      legend.key=element_rect(fill = alpha("white", .5)))

注意：背景透明度高于键的透明度，即背景 alpha 必须小于键 alpha。

Answer 2

除了legend.key = element_blank() 你还可以放 legend.background=element_blank() 在theme() 内，使文本也透明

这也将使使用gg_themes时默认的白色背景透明

Answer 3

如果你愿意，你可以欺骗它。添加第二个geom_smooth()。第一个有信心带，你没有展示传奇。使用第二个，您可以删除乐队，但显示图例。

df$Color <- "Red"
df1 <- df
(plot = ggplot() +
  geom_smooth(data=df, aes(data1, data2,colour=Color), se = TRUE, show.legend = FALSE) + 
  geom_smooth(data=df1, aes(data1, data2,colour=Color), se=FALSE) +
  geom_abline(intercept=0, slope=1,linetype="dashed", color = "black")+
  scale_x_continuous(expand=c(0,0), limits=c(0,100)) + 
  scale_y_continuous(expand=c(0,0), limits=c(0,100))+
  theme_classic()+
  labs(y="data2", x="data1", 
       title="sample 1 data1 vs data2") +
  theme(plot.title = element_text(size=18, face="bold"),
        legend.key = element_rect(colour = "transparent", fill = "white"),
        legend.justification = c(1,0), legend.position = c(1,0))+
  scale_color_discrete(name="Sample"))

Answer 4

这个answer 似乎是最简单的解决方案，在theme() 定义中设置legend.key = element_blank()。

Answer 5

我也对这种行为发疯了，所以这里有一个适用于您的示例的有效解决方案：

plot + guides(color=guide_legend(override.aes=list(fill=NA)))

查看this 线程以获取更多信息。