I have read different posts like this and this but my problem has a small variation. I have a df like this
ID <- c(\"DJ45\",\"DJ46\",\"DJ47\",\"DJ48\",\"
You can also use the gather function in the Tidyr package to shape the data:
library(tidyr) df1 %>% gather(MS, value, MS1, MS2, MS3, MS4, MS5, MS6) %>% ggplot(aes(x = factor(Tool), y = value, fill = factor(Tool)))+ geom_boxplot()+ facet_wrap(~MS)