library(magrittr)
library(ggplot2)
data(ikeogu.2017)
ikeogu.2017[1:10, 1:10]
ikeogu.2017 %>%
dplyr::select(-starts_with("X")) %>%
dplyr::group_by(study.name) %>%
tidyr::gather(trait, value, c(DMC.oven:TCC), na.rm = TRUE) %>%
ggplot2::ggplot(aes(x = study.name, y = value, fill = study.name)) +
facet_wrap(~trait, scales = "free_y", nrow = 2) +
geom_boxplot()
Run the code above in your browser using DataLab