以前、箱ひげ図の描き方について質問しましたリンク1。
3つの異なるグループ(またはラベル)のデータがありますここからダウンロードしてください箱ひげ図を得るには次のRコードを使うことができます
library(reshape2)
library(ggplot2)
morphData <- read.table(".\\TestData3.csv", sep=",", header=TRUE);
morphData.reshaped <- melt(morphData, id.var = "Label")
ggplot(data = morphData.reshaped, aes(x=variable, y=value)) +
+ geom_boxplot(aes(fill=Label))
ここで、ボックスプロットの上に有意水準をどのように配置するかを考えています。わかりやすくするために、論文から切り取ったスクリーンショットをここに掲載します。
ベストアンサー1
これは古い質問であり、DatamineR による回答ですでにこの問題の解決策が 1 つ提供されていることは承知しています。しかし、私は最近、有意バーを追加するプロセス全体を簡素化する ggplot 拡張機能を作成しました。ggsignif
geom_line
面倒なことにプロットにと を追加する代わりに、annotate
単一のレイヤーを追加するだけですgeom_signif
。
library(ggplot2)
library(ggsignif)
ggplot(iris, aes(x=Species, y=Sepal.Length)) +
geom_boxplot() +
geom_signif(comparisons = list(c("versicolor", "virginica")),
map_signif_level=TRUE)
パッケージの完全なドキュメントは以下から入手できます。クラン。