2017-03-28 91 views
0

我想盡可能多地獲取有關我的分佈的信息。我已經使用此代碼創建的箱線圖:使用geom_boxplot繪製分位數

ggplot(nkv.murgang, aes(x = factor(0), nkv.murgang$NK)) + 
    geom_boxplot(notch = F, outlier.color = "darkgrey", outlier.shape = 1, 
       color = "black", fill = "darkorange", varwidth = T) + 
    ggtitle("NKV Murgang - Einfamilienhaus") + 
    labs(x = "Murgang", y = "Nutzen/Konsten \n Verhälhniss") 

這產生了:

enter image description here

現在我wopuld喜歡在圖形繪製相應的值。像這樣的東西(在水平位置):

enter image description here

這裏(的一部分),我的數據:

我一直在嘗試不同的東西,但我掙扎由於這樣的事實,我只知道我的x軸。任何tipps如何克服這一點?

+0

請分享數據 – mtoto

+0

@mtoto感謝。如果您使用'coord_flip()',我添加了數據 – Danka

+0

您的圖片不等於您的代碼的輸出。 – mtoto

回答

0

這似乎做幾乎任何你想要的東西:

df = data.frame(val = runif(10)) # create dummy data 

ggplot(df) + geom_boxplot(aes(y=val,x=1)) + # create the boxplot at x=0 
geom_text(data=data.frame(q=as.numeric(quantile(df$val))), aes(x=rep(1.5,5),y=q,label=format(q,digits=2))) + # add quantile values at x=0.5 
geom_text(aes(x=0.5,y=median(df$val),label=format(quantile(df$val)[4]-quantile(df$val)[2],digits=2))) + # add interquartile value at x=0.5,y=median 
geom_linerange(aes(x=0.55,ymin=quantile(df$val)[2],ymax = quantile(df$val)[4])) + # add linerange for interquartile 
theme(axis.text.x=element_blank(), axis.ticks.x=element_blank()) + #remove x axis 
labs(x = "Murgang", y = "Nutzen/Konsten \n Verhälhniss") # add label