Удаление легенды слоя в 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()?

Ответы

Ответ 1

В зависимости от версии ggplot2, которую вы используете, вы получаете эту проблему. Используя ggplot2 vs 0.9.0 на R2.14.1, я получаю этот график:

enter image description here

который не содержит легенды для 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)

enter image description here

который воспроизводит вашу проблему. По умолчанию, 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.