15

グループの点が互いに積み重なっていない点範囲プロットを作成したいと思います。プロットは次のようになります: ここに画像の説明を入力:

回避を行うための私の最善の試みは、回避引数でベクトルを使用することです。

library(ggplot2)

dat <- structure(list(Treatment = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L), .Label = c("A", "B"), class = "factor"), 
    Temp = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 
    2L, 2L), .Label = c("10", "20"), class = "factor"), Rep = c(1L, 
    2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), Meas = c(3L, 
    2L, 2L, 2L, 6L, 4L, 4L, 3L, 5L, 1L, 2L, 3L), SD = c(2L, 3L, 
    2L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 2L, 1L)), .Names = c("Treatment", 
"Temp", "Rep", "Meas", "SD"), row.names = c(NA, -12L), class = "data.frame")

ggplot(dat, aes(x = Treatment, y = Meas, ymin = Meas - SD/2, ymax = Meas + SD/2)) +
geom_linerange(aes(color = Temp), position=position_dodge(width=c(0.6,0.4)), size = 1, alpha = 0.5) +
geom_point(aes(color = Temp, shape = Temp), position=position_dodge(width=c(0.6,0.4)), size = 3) +
theme_bw()

これにより、以下に示すプロットが得られます。ただし、すべてのポイントが覆い隠されていないため、上記のプロットを表示するには、Illustrator でドットとエラー バーを移動する必要があります。2 つのレベルで回避引数を使用する方法はありますか?ggplot2 ここに画像の説明を入力

4

2 に答える 2

5

論理的に考えposition_dodgeて、バーに適しています。1 つの因子レベルでは機能linerangesしますが、2 番目のレベルでは線間の最小距離を定義するのが困難です。ただし、要因を数値的に区別して、ラベルの適切な位置を追加することはできます。

dat1<-cbind(dat,aux=rep(1,length(dat[,1]))) 
dat1<-within(dat1, {aux = unlist(by(aux,Treatment,cumsum))})
dat1$aux<-dat1$aux+as.numeric(dat1$Treatment)*10
ggplot(dat1, aes( x=aux, y = Meas, ymin = Meas - SD/2, ymax = Meas + SD/2)) +
geom_linerange(aes(color = Temp), size = 1, alpha = 0.5) +geom_point(aes(color = Temp, shape = Temp))+
scale_x_continuous("Treatment",breaks=c(13.5,23.5), labels=c("A","B")) + # here you define coordinates for A and B 
theme_bw()

ここに画像の説明を入力

于 2013-03-18T09:21:15.847 に答える
2

これで問題が解決するわけではありませんposition_dodge()が、この問題の回避策になります。

x元のデータ フレームに新しい変数を追加しました。xポイント/ライン範囲の座標が含まれています。データフレームの値は、プロットする順序である必要があります。

dat$x<-c(0.85,0.9,0.95,1.05,1.1,1.15,1.85,1.9,1.95,2.05,2.1,2.15)

この新しい変数をx値として使用し、scale_x_continuos()ブレークとラベルを設定してスケールを取得Aします。B

ggplot(dat, aes(x = x, y = Meas, ymin = Meas - SD/2, ymax = Meas + SD/2)) +
  geom_linerange(aes(color = Temp), size = 1, alpha = 0.5) +
  geom_point(aes(color = Temp, shape = Temp), size = 3) +
  theme_bw()+
  scale_x_continuous("Treatment",breaks=c(1,2),labels=c("A","B"),limits=c(0.5,2.5))
于 2013-03-18T09:15:51.777 に答える