我正在尝试保留一层(平滑)的图例,并删除另一层(点)的图例。我曾尝试用guides(colour = FALSE)
和关闭这些传说geom_point(aes(color = vs), show.legend = FALSE)
。
编辑:由于此问题及其答案很普遍,因此似乎出现了一个可重现的示例:
library(ggplot2)
ggplot(data = mtcars, aes(x = mpg, y = disp, group = gear)) +
geom_point(aes(color = vs)) +
geom_point(aes(shape = factor(cyl))) +
geom_line(aes(linetype = factor(gear))) +
geom_smooth(aes(fill = factor(gear), color = gear)) +
theme_bw()
5
一个最小的可重现示例将简单得多。在冗长的代码行中,似乎有很多不必要的代码(对于当前的问题),并且由于当前编写的代码,它们是完全不可复制的。
—
mnel