library
(ggplot2)
df <-
data.frame
(
Factor1 =
factor
(
rbinom
(30, 1, 0.55), label =
c
(
"male"
,
"female"
)),
Factor2 =
factor
(
rbinom
(30, 1, 0.45), label =
c
(
"young"
,
"old"
)),
Values =
rnorm
(30, mean = 5, sd = 2)
)
df$Factor1Factor2 <-
interaction
(df$Factor1, df$Factor2)
custom_colors <-
c
(
"steelblue"
,
"darkorange"
,
"forestgreen"
,
"firebrick"
)
ggplot
(df,
aes
(x = Factor1Factor2, y = Values, fill = Factor1Factor2)) +
geom_boxplot
(width = 0.5, alpha = 0.7, outlier.shape =
NA
) +
geom_jitter
(width = 0.2, height = 0, size = 3, alpha = 0.8) +
scale_fill_manual
(values = custom_colors) +
labs
(x =
"Factor 1 & Factor 2"
, y =
"Values"
) +
ggtitle
(
"Box Plot with Factor 1 & Factor 2"
) +
theme_minimal
() +
theme
(
plot.title =
element_text
(size = 16, face =
"bold"
),
axis.text =
element_text
(size = 12),
axis.title =
element_text
(size = 14, face =
"bold"
),
legend.title =
element_blank
(),
legend.position =
"none"
)