r - Rで外れ値の色を設定する方法 - ラティス - bwplot

Question

たとえば、私がこれを得たとき：

http://i.stack.imgur.com/cWTIm.jpg

外れ値ごとに個別に色を設定したようです...

コードでの私の（部分的な）推測は次のとおりです。

...,par.settings = list(...,box.rectangle = list(col= c("red","blue")),...) ),...

thxすでに事前に！

Answer 1

公正な質問ですが、「コードの部分的な推測」を投稿しないでください。他の人にサンプル問題の作成を依頼するのは不公平です。

見つけたものを確認するサンプルコードは次のとおりです。

library(lattice)
d = data.frame(x=c(rnorm(90),20*runif(16)),group=letters[1:2])
cols = list(col=c("red","blue"),pch=c(1,16,13))
bwplot(group~x,data=d,  
       par.settings = list(
                           plot.symbol=cols,
                           box.rectangle = cols,
                           box.dot = cols,
                           box.umbrella=cols 
                           ))

外れ値の pch/col/alpha/cex がグループ化されていないため、正しく再利用されないことを示すコードを次に示します。

panel.bwplot から:

panel.points(x = rep(levels.fos, sapply(blist.out, length)), 
             y = unlist(blist.out), pch = plot.symbol$pch, col = plot.symbol$col, 
             alpha = plot.symbol$alpha, cex = plot.symbol$cex, 
             fontfamily = plot.symbol$fontfamily, ......

つまり、これはラティスに欠けている機能です (バグとは言いません)。