13

ggplot と geom_errorbar を使用してファセット プロットを作成しようとしています。ただし、ファセットごとに x 範囲が大きく異なる可能性があるため、エラー バーの幅は「適切」に見えません。MWE は次のとおりです。

library(ggplot2)
test <- data.frame( group=rep(c(1,2,3),each=10), ymin=rnorm(30), ymax=rnorm(30))
test$x <- rnorm(30) * (1+(test$group==1)*20)
ggplot( test, aes(x=x, ymin=ymin, ymax=ymax) ) +
  geom_errorbar(width=5) + facet_wrap( ~ group, scale="free_x" )
ggplot( test, aes(x=x, ymin=ymin, ymax=ymax) ) +
  geom_errorbar(width=.2) + facet_wrap( ~ group, scale="free_x" )

最初のプロットでは、グループ 1 のエラー バーはよく見えますが、2 と 3 は広すぎます。2 番目のプロットでは、エラー バーがグループ 1 に対して小さすぎます。これを修正する簡単な方法はありますか? width=0 を使用する必要があるかもしれないと考えていますが、それは避けたいと思います。

最初のプロット

2 番目のプロット

4

1 に答える 1

13

wdこの問題の回避策は、各レベルのエラーバーの幅を含む新しい列をデータフレームに追加することです。

test <- data.frame( group=rep(c(1,2,3),each=10), ymin=rnorm(30), ymax=rnorm(30))
test$x <- rnorm(30) * (1+(test$group==1)*20)
test$wd<-rep(c(10,0.5,0.5),each=10)

次に、この新しい列を使用してを設定width=しgeom_errorbar()ます。通話中に設定する必要がありaes()ます。

ggplot( test, aes(x=x, ymin=ymin, ymax=ymax) ) +
  geom_errorbar(aes(width=wd)) + facet_wrap( ~ group, scale="free_x" )

ここに画像の説明を入力してください

于 2013-01-24T16:47:11.240 に答える