df<-read.csv('E:/301.csv')
kable(df,format="markdown")
mydata<-melt(df,id.vars=c("TIME"))
windowsFonts(myFont = windowsFont("微软雅黑"))
p<-ggplot(mydata,aes(x=factor(TIME),y=value,fill=TIME))+ scale_shape_manual(values=LETTERS[1:5])+ geom_boxplot(outlier.size = 0.5)
p<-p+theme_bw()+xlab("time")+ylab(expression(paste("FN2O","[μmol/(m]"^"2","/d)")))+theme(title=element_text(family="myFont",color="black",size=20))
绘制出的图形总不按照顺序打出
应该是"2016年6月","2016年8月","2016年10月","2017年5月","2017年7月"
而且CSV文件是对的