web-dev-qa-db-ja.com

Rでグループ化された箱ひげ図を作成する方法は?

グループ化された3つのデータセットをマージし、Aに1つ、Bに1つの2つのボックスのみを持つグラフを取得します。それを取得する方法を提案できますか?

Rでグループ化された箱ひげ図を作成しようとしています。AとBの2つのグループがあり、各グループにはそれぞれ5つの測定値を持つ3つのサブグループがあります。

以下は私が箱ひげ図を作成した方法ですが、誰かがより良い、短い、または簡単な方法を持っているなら、私は感謝します

A1 <- c(1,2,9,6,4)
A2 <- c(5,1,9,2,3)
A3 <- c(1,2,3,4,5)
B1 <- c(2,4,6,8,10)
B2 <- c(0,3,6,9,12)
B3 <- c(1,1,2,8,7)

DF <- data.frame(A1, A2, A3, B1, B2, B3)

boxplot(DF, col = Rainbow(3, s = 0.5))
axis(side = 1, at = c(2,5), labels = c("A","B"))
legend("topleft", fill = Rainbow(3, s = 0.5), legend = c(1,2,3), horiz = T)

enter image description here

AとBのボックスを正しくグループ化(ジョイント)し、軸タイトルを単純なAとBに修正する方法を教えてください。

次のようなものが欲しい

enter image description here

8

データがlong形式の場合は、このようにグループ化するのが簡単です。逆wide。ベクターから始めます:

DF2 <- data.frame(
  x = c(c(A1, A2, A3), c(B1, B2, B3)),
  y = rep(c("A", "B"), each = 15),
  z = rep(rep(1:3, each=5), 2),
  stringsAsFactors = FALSE
)
str(DF2)
# 'data.frame': 30 obs. of  3 variables:
#  $ x: num  1 2 9 6 4 5 1 9 2 3 ...
#  $ y: chr  "A" "A" "A" "A" ...
#  $ z: int  1 1 1 1 1 2 2 2 2 2 ...

cols <- Rainbow(3, s = 0.5)
boxplot(x ~ z + y, data = DF2,
        at = c(1:3, 5:7), col = cols,
        names = c("", "A", "", "", "B", ""), xaxs = FALSE)
legend("topleft", fill = cols, legend = c(1,2,3), horiz = T)

atの使用は手動で配置を制御するため、「視覚的なグループ化」はあまり堅牢ではありません。 (widthboxwexでそれらの間隔を制御できます。)

base R boxplot

ggplot2を選択することもできます:

library(ggplot2)
ggplot(DF2, aes(y, x, fill=factor(z))) +
  geom_boxplot()

ggplot boxplot

10
r2evans

ggplot2を使用する必要があります

ggplot() + 
  geom_boxplot(data = df, mapping = aes(col_name, value, fill=index))  + 
  theme( axis.text.x = element_blank()) +
  geom_segment(data=hline1, mapping=aes(x=1, y=-0.5, xend=3, yend=-0.5), size=2) +
  annotate("text", x = 2, y = -1, label = "A") + 
  geom_segment(data=hline1, mapping=aes(x=4, y=-0.5, xend=6, yend=-0.5), size=2) +
  annotate("text", x = 5, y = -1, label = "B")

enter image description here

3
Kush Patel