楼主: 强不强
14527 5

[问答] ggplot箱型图横坐标改顺序 [推广有奖]

  • 0关注
  • 0粉丝

高中生

22%

还不是VIP/贵宾

-

威望
0
论坛币
0 个
通用积分
0.6000
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
262 点
帖子
6
精华
0
在线时间
44 小时
注册时间
2018-3-27
最后登录
2024-10-24

楼主
强不强 发表于 2018-5-24 22:33:27 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
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文件是对的

二维码

扫码加我 拉你入群

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

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

关键词:gplot plot GPL 横坐标

回帖推荐

cheetahfly 发表于4楼  查看完整内容

ggplot(mydata, aes(x = factor(TIME, level = c("2016年6月", "2016年8月", "2016年10月", "2017年5月", "2017年7月")), y=value,fill=TIME))

沙发
强不强 发表于 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

板凳
cheetahfly 在职认证  发表于 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))
已有 1 人评分学术水平 热心指数 信用等级 收起 理由
bobo198632 + 1 + 1 + 1 热心帮助其他会员

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

报纸
bobo198632 发表于 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月", " ...
这个方法好用!

地板
bobo198632 发表于 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月", " ...
这个方法好用!

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-2-10 15:21