2017-03-28 4 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 – mtoto

+0

を共有してください。 '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 
関連する問題