+ geom_boxplot(notch = TRUE, notchwidth = 0.5)
ないエレガントなグラフィックが、ここでの例です:
# confidence interval calculated by `boxplot.stats`
f <- function(x) {
ans <- boxplot.stats(x)
data.frame(ymin = ans$conf[1], ymax = ans$conf[2])
}
# overlay plot (upper panel below)
p <- ggplot(iris, aes(Species, Sepal.Length)) + geom_boxplot() +
stat_summary(fun.data = f, geom = "linerange", colour = "skyblue", size = 5)
p
# base graphics (lower panel below)
boxplot(Sepal.Length ~ Species, data = iris, notch = TRUE)
あなたがstat_summary
の引数を微調整することにより、CIバーのapparenceを変更することができます?geom_boxplot
を調べるとnotch
とnotchwidth
引数を明らかにする。
クロスバーバージョン:
f <- function(x) {
ans <- boxplot.stats(x)
data.frame(ymin = ans$conf[1], ymax = ans$conf[2], y = ans$stats[3])
}
p <- ggplot(iris, aes(Species, Sepal.Length)) +
geom_boxplot(width = 0.8) +
stat_summary(fun.data = f, geom = "crossbar",
colour = NA, fill = "skyblue", width = 0.8, alpha = 0.5)
p
悪くない!スカイブルーの矩形を広げ、多少の透明度を追加することで、基本的には完璧です。どうもありがとうございました。 –
ええと、私は、プロットを拡大縮小するときに固定サイズが問題であることを認識しています。よりダイナミックなサイズにすることはできませんか? –
更新しました。私はクロスバーバージョンを入れました。 – kohske