0 
##Example data to illustrate problem:
type=c("grp1","grp2","grp1","grp3","grp3","grp3","grp4")
num=c(1,1,2,4,3,5,1)
cols=c(rep("red",5),"green","red")

library(lattice)
bwplot(num~type)
par(new=T)
stripplot(num~type,col=cols)

ボックス プロットによって表示される追加情報は気に入っていますが、ストリップ チャートの色付きの点によって伝えられる情報が必要です。明らかに par(new=T) は機能しません。どうすればポイントを箱ひげ図に重ねることができますか?

4

2 に答える 2

0

agstudy による回答は非常に優れていますが、コメントで指摘したように、bwplot によってプロットされた外れ値は、stripplot でもプロットされるため、混乱する可能性があります。

これはjitter.data=TRUE、 のオプションとしてを使用している場合にのみ問題になることに注意してくださいstripplot。そうしないと、重複したポイントが互いに直接重ねてプロットされ、そこにあることがわからなくなります。データに外れ値があり、 を使用した場合、jitter.data=TRUE本来の 2 倍の外れ値が表示されます。

次のアプローチでは、外れ値を抑制してbwplotこの問題を回避します。

bwstrip <- function(x,y,...){
  panel.stripplot(x,y,col=cols,do.out=FALSE,jitter.data=TRUE,...)
  panel.bwplot(x,y,...)
}
bwplot(lobe.depths,panel=bwstrip)
于 2014-10-02T19:30:07.720 に答える