关闭 ggplot 中的一些图例

Question

假设我有一个不止一个传说的ggplot。

mov <- subset(movies, length != "")
(p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point()
)

我可以像这样关闭所有传奇的显示：

(p1 <- p0 + theme(legend.position = "none"))

将 show_guide = FALSE 传递给geom_point（根据此问题）会关闭形状图例。

(p2 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point(show_guide = FALSE)
)

但是如果我想关闭颜色图例呢？似乎没有办法告诉< code>show_guide对哪个图例应用其行为。并且没有< code>show_guide关于比例或美学的参数。

(p3 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  scale_colour_discrete(show_guide = FALSE) +
  geom_point()
)
# Error in discrete_scale

(p4 <- ggplot(mov, aes(year, rating, shape = mpaa)) +
  aes(colour = length, show_guide = FALSE) +
  geom_point()
)
#draws both legends

这个问题表明，控制图例的现代（自 ggplot2 v0.9.2 起）方法是使用 guides 函数。

我希望能做一些像

p0 + guides(
  colour = guide_legend(show = FALSE) 
)

但guide_legend没有show参数。

如何指定显示哪些图例？

Answer 1

您可以简单地将 show.legend=FALSE 添加到几何中以抑制相应的图例

Answer 2

您可以在 scale_ 中使用 guide = “none”..._...（） 以抑制图例。

对于您的示例，您应该使用< code > scale _ colour _ continuous()，因为< code>length是连续变量(不是离散变量)。

(p3 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
   scale_colour_continuous(guide = "none") +
   geom_point()
)

或者使用函数< code>guides()为不希望显示为图例的元素/美学设置< code >“none”，例如< code>fill 、< code>shape 、< code>colour。

p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point()    
p0+guides(colour = "none")

所提供的两种解决方案都适用于新的< code>ggplot2版本3.3.5，但< code>movies数据集不再存在于该库中。相反，您必须使用新包< code>ggplot2movies来检查这些解决方案。

library(ggplot2movies)
data(movies)
mov <- subset(movies, length != "")