全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
14323 5
2018-05-24
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文件是对的

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2018-5-24 22:34:17
这个是做的图
附件列表
时间.png

原图尺寸 7.9 KB

售价: 65535 个论坛币  [记录]  [购买]

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2018-5-24 22:38:06
这是我用的csv文件和做出的图
附件列表
@44UZ[3@VC@IDR)PJ}%4X62.png

原图尺寸 16.37 KB

@44UZ[3@VC@IDR)PJ}%4X62.png

4J_89ZU_9IX$4X%VH~]CG4C.png

原图尺寸 10.68 KB

4J_89ZU_9IX$4X%VH~]CG4C.png

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2018-5-24 22:46:20
ggplot(mydata, aes(x = factor(TIME, level = c("2016年6月", "2016年8月", "2016年10月", "2017年5月", "2017年7月")), y=value,fill=TIME))
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2019-2-25 11:17:14
cheetahfly 发表于 2018-5-24 22:46
ggplot(mydata, aes(x = factor(TIME, level = c("2016年6月", "2016年8月", "2016年10月", "2017年5月", " ...
这个方法好用!
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2019-2-25 11:17:15
cheetahfly 发表于 2018-5-24 22:46
ggplot(mydata, aes(x = factor(TIME, level = c("2016年6月", "2016年8月", "2016年10月", "2017年5月", " ...
这个方法好用!
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群