ggplot2を使用して竜巻図を作成する方法を探しています。geom_linerangeの例は次のようになります。
library(ggplot2)
dmod <- lm(price ~ cut, data=diamonds)
cuts <- data.frame(cut=unique(diamonds$cut),
predict(dmod, data.frame(cut = unique(diamonds$cut)),
se=TRUE)[c("fit","se.fit")])
se <- ggplot(cuts, aes(cut, fit, ymin = fit - se.fit,
ymax=fit + se.fit, colour = cut))+ geom_linerange(size=2) + coord_flip()
se
ただし、線は長さの降順、つまり一番上の範囲が最も広い範囲で並べ替える必要があります。これを達成する方法がわかりません。
ありがとうございました、
トニ