ggplot(dat, aes(x = group, y = log2_fc, fill = group)) +
geom_violin(alpha = 0.28, color = NA, width = 0.9) +
geom_boxplot(width = 0.18, outlier.shape = NA, alpha = 0.65) +
geom_jitter(width = 0.08, alpha = 0.55, size = 2) +
labs(
title = "Day-28 antibody response is higher in the TLR-adjuvanted group",
x = "Adjuvant group",
y = "Log2 fold change in antibody titer"
) +
theme_minimal(base_size = 14) +
theme(legend.position = "none")
- This code creates the first ggplot shown in the presentation.
- Because the entire analysis is inside one
.Rmd file, the report is easy to reproduce and update.