ドットプロットにスプレッドデータを追加するR

Question

平均と四分位範囲のテーブルがあります。ドットがこの平均を示し、バーがドットを通って広がり、四分位範囲を示すドットプロットを作成したいと思います。言い換えれば、ドットはバーの中間点にあり、その長さは四分位範囲データに等しくなります。私は、例えばR.

に

範囲は、その後のバーとしてこのプロットに追加されます

labels<-c('a','b','c','d') 
averages<-c(10,40,20,30) 
ranges<-c(5,8,4,10) 
dotchart(averages,labels=labels) 

を働いています。

アイデア？

ありがとうございます！ここでは、レコードの

Answer 1

さらに別の方法では、塩基を用いる。

labels <- c('a', 'b', 'c', 'd') 
averages <- c(10, 40, 20, 30) 
ranges <- c(5, 8, 4, 10) 
dotchart(averages, labels=labels, xlab='average', pch=20, 
     xlim=c(min(averages-ranges), max(averages+ranges))) 
segments(averages-ranges, 1:4, averages+ranges, 1:4) 

Answer 2

ggplot2は、これを行うための優れた施設がありますの機能をHmiscパッケージ：

library(lattice) 
library(Hmisc) 

labels<-c('a','b','c','d') 
averages<-c(10,40,20,30) 
ranges<-c(5,8,4,10) 
low <- averages - ranges/2 
high <- averages + ranges/2 
d <- data.frame(labels, averages, low, high) 

Dotplot(labels ~ Cbind(averages, low, high), data = d, 
     col = 1,          # for black points 
     par.settings = list(plot.line = list(col = 1)), # for black bars 
     xlab = "Value") 

Answer 3

カップルを使用しています格子ソリューション、です：

library(ggplot2) 

labels<-c('a','b','c','d') 
averages<-c(10,40,20,30) 
ranges<-c(5,8,4,10) 

x <- data.frame(labels,averages,ranges) 

ggplot(x, aes(averages,labels)) + 
geom_point() + 
geom_errorbarh(aes(xmin=averages-ranges,xmax=averages+ranges)) 

はあなたのようなプロットを与える：