删除 ggplot 中的图层图例

另一个 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()?

根据您使用的 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 to 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.