删除 ggplot 中的图层图例

Question

另一个 ggplot 传奇问题！

我有一个表单数据集

test <- data.frame(
  cond = factor(rep(c("A", "B"), each=200)), 
  value = c(rnorm(200), rnorm(200, mean=0.8))
)

所以两组和一些值，我想绘制密度。我还想在图中添加一条表示每个组平均值的线，所以我：

test.cdf <- ddply(test, .(cond), summarise, value.mean=mean(value))

然后在ggplot调用中：

ggplot(test, aes(value, fill=cond)) + 
  geom_density(alpha=0.5) + 
  labs(x='Energy', y='Density', fill='Group') + 
  opts(
    panel.background=theme_blank(), 
    panel.grid.major=theme_blank(), 
    panel.grid.minor=theme_blank(), 
    panel.border=theme_blank(), 
    axis.line=theme_segment()
  ) + 
  geom_vline(data=test.cdf, aes(xintercept=value.mean, colour=cond), 
    linetype='dashed', size=1)

如果你运行上面的代码，你会得到一个表示每个组的图例，还有一个表示平均值指标 vline 的图例。我的问题是如何摆脱geom_vline() 的传说？

Answer 1

根据您使用的 ggplot2 版本，您会遇到此问题。在 R2.14.1 上使用 ggplot2 与 0.9.0 我得到这张图：

其中不包括 vline 的图例。在这个版本的 ggplot2 中，您可以使用 show_guide 调整图例的出现：

ggplot(test, aes(value, fill=cond)) + 
  geom_density(alpha=0.5) + 
  labs(x='Energy', y='Density', fill='Group') + 
  opts(
    panel.background=theme_blank(), 
    panel.grid.major=theme_blank(), 
    panel.grid.minor=theme_blank(), 
    panel.border=theme_blank(), 
    axis.line=theme_segment()
  ) + 
  geom_vline(data=test.cdf, aes(xintercept=value.mean, colour=cond), 
    linetype='dashed', size=1, show_guide = TRUE)

重现您的问题。默认为show_guide = FALSE。在旧版本中，您可以将legend = FALSE 添加到geom_vline 以省略图例。添加legend = FALSE 在当前版本中仍然有效，但会引发警告：

Warning message:
In get(x, envir = this, inherits = inh)(this, ...) :
  "legend" argument in geom_XXX and stat_XXX is deprecated. Use show_guide = TRUE or show_guide = FALSE for display or suppress the guide display.

我建议升级ggplot2。