ggplot içinde katman efsanesini kaldırma

Question

Başka bir ggplot efsane sorusu!

Ben formda

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

Yani iki grup ve bazı değerlerin bir veri kümesi var ve yoğunluğu çizmek istiyorum.

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

Sonra ggplot çağrısında: Ben de I böylece arsa için her grup için ortalama belirten bir satır eklemek istediğiniz

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) 

Yukarıdaki kod çalıştırırsanız, belirten bir efsane olsun Her grup, ama aynı zamanda ortalama gösterge vline için bir. Sorum şu: geom_vline() için efsaneden nasıl kurtulabilirim?

Answer 1

Eğer bu sorunu olsun kullandığınız ggplot2 sürümüne bağlı.

UŞebeke ilişkin açıklamayı içermemektedir: R2.14.1 üzerine 0.9.0 vs ggplot2 kullanarak bu grafiği olsun.

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) 

sorununuzu çoğalır: ggplot2 bu versiyonda show_guide kullanarak efsanenin oluşumunu çimdik. Varsayılan, show_guide = FALSE. Eski sürümlerde, efsaneyi atlamak için geom_vline'a legend = FALSE'u ekleyebilirsiniz. legend = FALSE ekleme hala geçerli sürümünde çalışıyor hala çalışır, ancak bir uyarı atıyor:

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. 

Ben ggplot2 yükseltme öneriyoruz.