ggplot2を用いて、経時的なサンプルの変化を箱ひげ図で示したいと思っています。
以下のような手順で進めると、添付画像のように横軸のDayが反映されない箱ひげ図が出力されてしまいます。
Dayごとに箱ひげ図をまとめるには、どのようにすれば良いでしょうか?
Boxplotに詳しい方、コメントを頂けないでしょうか?
library(tidyverse)
library(easystats)
#サンプルデータの作成
A_X_value = as.numeric(rpois(30, lambda = 10))
A_Y_value = as.numeric(rpois(30, lambda = 30))
B_X_value = as.numeric(rpois(30, lambda = 15))
B_Y_value = as.numeric(rpois(30, lambda = 20))
Sample = c(rep("A", 60), rep("B", 60))
Feature = c(rep("X", 30), rep("Y", 30), rep("X", 30), rep("Y", 30))
Day = c(rep(1, 20), rep(2, 20), rep(3, 20), rep(1, 20), rep(2, 20), rep(3, 20))
Value = c(A_X_value, A_Y_value, B_X_value, B_Y_value)
test_box_DF = data.frame(Sample, Feature, Day, Value)
#boxplotの作成
gp_boxtest = ggplot(data = test_box_DF, aes(x = Day, y = Value, color = Feature)) +
geom_boxplot() +
facet_wrap(~ Sample) +
theme_classic() +
theme(panel.spacing = grid::unit(1, "lines"), axis.text = element_text(colour = "black")) +
labs(x="Day", y="Value")
gp_boxtest