ggplotの凡例キーの塗りつぶしを取り除きます。

Question

挨拶凡例の灰色の四角形を削除したいと思います。私はいろいろな方法を試しましたが、どれも成功しませ

ggtheme <- 
theme(
axis.text.x = element_text(colour='black'), 
axis.text.y = element_text(colour='black'), 
panel.background = element_blank(), 
panel.grid.minor = element_blank(), 
panel.grid.major = element_blank(), 
panel.border = element_rect(colour='black', fill=NA), 
strip.background = element_blank(), 
legend.justification = c(0, 1), 
legend.position = c(0, 1), 
legend.background = element_rect(colour = NA), 
legend.key = element_rect(colour = "white", fill = NA), 
legend.title = element_blank() 
) 

colors <- c("red", "blue") 
df <- data.frame(year = c(1:10), value = c(10:19), gender = rep(c("male","female"),each=5)) 
ggplot(df, aes(x = year, y = value)) + geom_point(aes(colour=gender)) + 
stat_smooth(method = "loess", formula = y ~ x, level=0, size = 1, aes(group = gender, colour=gender)) + 
ggtheme + scale_color_manual(values = colors) 

Answer 1

あなたがstat_smooth()を使用するので、あなたは（fill=がaes()内部で使用されていない場合はグレー）、デフォルトはまた、いくつかの塗りつぶしと線を中心に信頼区間を作るようという伝説キー内部のこのグレー色を取得します。

信頼区間が不要な場合はse=FALSEをstat_smooth()に設定してください。

+stat_smooth(method = "loess", formula = y ~ x, level=0, size = 1, 
       aes(group = gender, colour=gender),se=FALSE) 

別の解決策は、伝説から塗りつぶしを除去するが、ラインの周りに信頼区間を維持するために機能guides()とoverride.aes=を使用することです。

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

Answer 2

theme_set(theme_gray() + theme(legend.key=element_blank())) 

あなたはまた、灰色の背景削除する場合：

theme_set(theme_bw() + theme(legend.key=element_blank())) 

Answer 3

+ theme(legend.background=element_blank())