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\",\"
Your problem is that you need a long format to do facet_wraps.
#first, reshape to long
library(reshape2)
df1_long <- melt(df1, id.vars=c("ID","Tool","Name"))
#then plot
p2 <- ggplot(df1_long, aes(x=factor(Tool),y=value,fill=factor(Tool)))+
geom_boxplot() + labs(title="CMP") +facet_wrap(~variable)
p2
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)
You could also do it without facet_wrap like so:
library(reshape2)
df2<-melt(df1,id.var=c("ID","Tool","Name"))
p <- ggplot(df2, aes(variable, value,fill=Tool))
p + geom_boxplot() + labs(title = "CMP")