boplot

#盒式图boxplot

library(reshape2)
library(ggplot2)

data1=read.csv('Documents.csv',header = T)
data1=melt(data1)  #长数据变成宽数据
head(data1)

ggplot(data=data1)+
  geom_boxplot(mapping=aes(x=data1$variable,y=data1$value,fill=data1$variable))+theme_bw()+
  scale_y_continuous(breaks = seq(0, 6, by = 2))


data1=melt(data)
tail(data1)