在geom_histogram從geom_vline

Question

這裏創建的元素創建傳說是示例數據集中：

structure(list(Age = c(6L, 7L, 5L, 6L, 7L, 9L,6L, 7L, 5L, 6L, 7L, 9L,6L, 7L, 5L, 6L, 7L, 9L), Year = c(2011, 
2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,  2011, 2011)), .Names = c("Age", "Year"), row.names = c(NA, 6L), class = "data.frame") 

我想創建一個傳說，將顯示三個組成部分，我在下面我geom_vline命令列表。我讀過的幾個例子在s.overflow，但似乎沒有奏效..

這是我到目前爲止有：

# to create standard errors and mean lines to plot on histogram 
se <- function(x) sqrt(var(x)/length(x)) 
se_11 <- se(Age_2011$Age) 
mean_11 <- mean(Age_2011$Age) 
se_11_plus <- mean_11 + se_11 
se_11_minus <- mean_11 - se_11 

#plot 
p11_age <- ggplot(Age_2011, aes(x=Age))+ 
geom_histogram(aes(y=(..count..)/sum(..count..)), binwidth=1, origin=-.5, fill="white", color="black", show_guide=TRUE)+    
scale_y_continuous(labels=percent_format(), name="Frequency (%)")+ ## plotting in  percent frequency 
xlab("Age (years)")+ 
scale_x_continuous(limits=c(1,45), breaks=seq(1,45,1))+ 
scale_colour_discrete(name="Units", guide="legend")+ #attempting to create legend 

# vertical lines for mean and standard errors 
geom_vline(aes(xintercept=mean(Age_2011$Age), na.rm=T), color="red", linetype="dashed",  size=1, show_guide=TRUE)+ 
geom_vline(aes(xintercept=se_11_plus), color ="blue", show_guide=TRUE)+ 
geom_vline(aes(xintercept=se_11_minus), color="blue", show_guide=TRUE)+ 

# creating custom legends using guides 
scale_linetype_manual(name="test", labels =c("median", "test", "test2"), values =  c("median"=1, "test"=2, "test3"=3))+ 
theme(legend.key=element_rect(fill="white", color ="white"))+ 
theme(legend.background=element_blank())+ 
guides(colour=guide_legend(override.aes=list(linetype=0)), fill=guide_legend(override.aes=list(linetype=0)), 
    shape=guide_legend(override.aes=list(linetype=0)), 
    linetype=guide_legend())+ 

#title and background 
ggtitle("Age Frequency Histogram of 2011 Catch")+ 
theme(panel.grid.major=element_blank(), panel.grid.minor=element_blank(),  panel.background=element_rect(colour="black", fill="white")) 

所有geom_vlines的秀，但是我無法弄清楚如何當真的只有一個直方圖「系列」，並且我想要在圖例中是垂直線時獲得圖例。

任何幫助表示讚賞。謝謝

Answer 1

這是或多或少你在問什麼？

library(ggplot2) 
library(scales) 
p11_age <- ggplot(Age_2011, aes(x=Age))+ 
    geom_histogram(aes(y=..count../sum(..count..)), binwidth=1, origin=-0.5, fill=NA, color="black")+    
    scale_y_continuous(name="Frequency (%)", labels=percent_format())+ 
    scale_x_continuous(name="Age (years)",limits=c(1,45), breaks=seq(1,45,1))+ 
    # vertical lines for mean and standard errors 
    geom_vline(aes(xintercept=mean_11, color="Mean", linetype="Mean"), size=1, show_guide=TRUE)+ 
    geom_vline(aes(xintercept=se_11_plus, color="Std.Err", linetype="Std.Err"), show_guide=TRUE)+ 
    geom_vline(aes(xintercept=se_11_minus, color="Std.Err", linetype="Std.Err"), show_guide=TRUE)+ 
    scale_colour_manual(name="Units", values=c(Std.Err="blue",Mean="red"))+ 
    scale_linetype_manual(name="Units", values=c(Mean="dashed",Std.Err="solid"), guide=FALSE)+ 
    ggtitle("Age Frequency Histogram of 2011 Catch")+ 
    theme(legend.background=element_blank(), 
     panel.grid.major=element_blank(), panel.grid.minor=element_blank(), 
     panel.background=element_rect(colour="black", fill="white")) 
p11_age 

所以在這裏我們增加了3 geom_vline層，使用呼叫內部顏色和線型美觀到aes(...)。然後我們使用scale_color_manual(...)將「Mean」和「Std.Err」顏色映射爲「紅色」和「藍色」，並且我們在呼叫中將「Mean」和「Std.Err」線型映射爲「虛線」和「實心」到scale_linetype_manual(...)。請注意使用values=...參數中的命名向量。我們還在scale_linetype_manual(...)的調用中使用guide=FALSE關閉了線型嚮導的顯示。其原因是，否則傳說中的線條將是堅實而虛幻的（我認爲這就是你想要用override_aes做的事）。