1

私はネットを見回して、外れ値のジッターと形状の変更に関する多くのことを見つけましたが、この特定の問題については何も見つけられないようです.

ジッタリングされたデータポイントを含む白黒の箱ひげ図が必要です-それは可能です。

外れ値の形状も変更したいと思います。スコアが 4 のケースは複数ありますが、そのうちの 1 つだけが白丸に変わります。

特定のレベルの 1 つのデータ ポイントが外れ値と見なされる場合、残りのデータ ポイントも外れ値と見なされると思います。

これはコーディング エラーですか、それとも統計クラスの途中で何かを見逃したのでしょうか? それがコーディングの場合、どうすればそれらすべてを中空にすることができますか?

画像を添付するには、私の「評判」が 10 である必要があるようです。それがなくても意味があることを願っています

これが私のコードです：

plot <- ggplot(phase2.3, aes(Group, Score))

plot + geom_point (position = position_jitter(w = 0.1, h = 0.2)) + 
 geom_boxplot (outlier.shape = 1) + xlab("Group") + theme_bw(20)
4

1 に答える 1

0

おそらく、どの点が範囲外であるかを自分で計算する必要があります。geom_boxplot以下は、を使用して外れ値を見つける方法を示すからの標準的な例の拡張ですplyr。

# load packages
require(plyr)
require(ggplot2)
# find outliers
df <- ddply(mtcars, "cyl", function(x){
  iqr <- quantile(x[,"mpg"], c(.25, .75)) # inter-quartile-range
  whisker <- iqr+c(-1.5, 1.5)*diff(iqr)   # whiskers-range
  x[,"shape"] <- ifelse(x[,"mpg"] < whisker[1] | x[,"mpg"]>whisker[2], 1, 16)
  return(x)
})
# plot
p <- ggplot(df, aes(factor(cyl), mpg))
p + geom_boxplot() # without jittering
# adding shape manualy
p + geom_boxplot(outlier.size=-Inf) + 
  geom_jitter(aes(shape=factor(shape))) + 
  scale_shape_manual(guide=FALSE, values=c("16"=16, "1"=1))
于 2013-10-04T10:32:08.520 に答える