| 查看: 3879 | 回复: 21 | |||
huaidan0331铜虫 (小有名气)
|
[交流]
论文画图求助信息！ 已有9人参与
|
||
请教大位大神，下面这个图是用什么软件画的？看着很好看，我用origin没有画出来呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有3人回复
-
所感
已经有3人回复
-
要不要辞职读博？
已经有7人回复
-
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
perfectpoint
铁杆木虫 (著名写手)
- 应助: 532 (博士)
- 金币: 6348.5
- 散金: 557
- 红花: 85
- 帖子: 1882
- 在线: 1164.7小时
- 虫号: 4009201
- 注册: 2015-08-06
- 性别: GG
- 专业: 电气科学与工程
13楼2018-01-11 11:23:46
★ ★ ★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
paperhunter: 金币+3, 鼓励交流 2018-01-11 09:49:52
小木虫: 金币+0.5, 给个红包，谢谢回帖
paperhunter: 金币+3, 鼓励交流 2018-01-11 09:49:52
|
ggplot2可以应付，替换下面的TS数据 > require(ggplot2) > figuredata <- read.csv("c:/figuredata.csv", + header = TRUE) > figuredata YearMonth Type TS 1 2009Nov Influent 6 2 2009Nov STW1 16 3 2009Nov STW2 17 4 2009Nov STW3 15 5 2010Mar Influent 5 6 2010Mar STW1 13 7 2010Mar STW2 15 8 2010Mar STW3 14 9 2010Jul Influent 5 10 2010Jul STW1 45 11 2010Jul STW2 46 12 2010Jul STW3 48 13 2010Nov Influent 5 14 2010Nov STW1 18 15 2010Nov STW2 19 16 2010Nov STW3 17 17 2011Mar Influent 5 18 2011Mar STW1 18 19 2011Mar STW2 19 20 2011Mar STW3 17 21 2011Apr Influent NA 22 2011Apr STW1 19 23 2011Apr STW2 19 24 2011Apr STW3 18 25 2011May Influent NA 26 2011May STW1 21 27 2011May STW2 20 28 2011May STW3 19 29 2011June Influent NA 30 2011June STW1 21 31 2011June STW2 21 32 2011June STW3 21 > levels(figuredata$YearMonth) <- + figuredata$YearMonth[seq(1, 32, by = 4)] > > > ggplot(figuredata, aes(x = YearMonth, y = TS)) + + geom_col(aes(color = Type, fill = Type), + width = 0.1, + position = position_dodge(width = 0.6)) + + geom_point(aes(color = Type, shape = Type), + position = position_dodge(width = 0.6)) + + scale_y_continuous(limits = c(0,100), + breaks = seq(0,100,by = 20)) + + geom_vline(xintercept = 5.5) + + annotate("text", x = c(3, 7), y = c(90, 90), + label = c("Feedind period", "Resting period"  ) ++ geom_hline(yintercept = seq(0,100,by = 20), linetype = 2) + + theme(panel.background = element_rect(fill = "white", + colour = "black" ,+ legend.background = element_blank(), + legend.position = c(0.1,0.8), + legend.title = element_blank(), + legend.box.background = element_rect(fill = "white", + colour = "black" ,+ legend.key = element_rect(colour = "black" ,+ legend.key.width = unit(0.5, units = "cm" ,+ legend.key.height = unit(0.5, units = "cm" ,+ axis.text.x = element_text(colour = c("darkred", + rep("darkcyan", 3), + rep("darkblue", 4)))) + + labs(x = NULL, y = "TS(%)" ++ scale_color_brewer(palette = "Spectral", type = "seq" ++ scale_fill_brewer(palette = "Spectral", type = "seq"  Rplot.png |
11楼2018-01-11 09:28:09
cangture
木虫 (正式写手)
- 应助: 29 (小学生)
- 金币: 1589.4
- 散金: 1593
- 红花: 5
- 帖子: 515
- 在线: 398.2小时
- 虫号: 1442130
- 注册: 2011-10-14
- 性别: GG
- 专业: 金属材料的合金相、相变及
4楼2018-01-10 15:59:06
12楼2018-01-11 09:31:15
huaidan0331
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 176.9
- 帖子: 81
- 在线: 26.6小时
- 虫号: 4003214
- 注册: 2015-08-03
- 性别: MM
- 专业: 环境工程
，还是多谢您写的这么详尽的回答，谢谢
17楼2018-01-12 15:48:54
2楼2018-01-10 14:54:29
perfectpoint
铁杆木虫 (著名写手)
- 应助: 532 (博士)
- 金币: 6348.5
- 散金: 557
- 红花: 85
- 帖子: 1882
- 在线: 1164.7小时
- 虫号: 4009201
- 注册: 2015-08-06
- 性别: GG
- 专业: 电气科学与工程
3楼2018-01-10 15:49:48
huaidan0331
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 176.9
- 帖子: 81
- 在线: 26.6小时
- 虫号: 4003214
- 注册: 2015-08-03
- 性别: MM
- 专业: 环境工程
5楼2018-01-10 17:18:25
huaidan0331
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 176.9
- 帖子: 81
- 在线: 26.6小时
- 虫号: 4003214
- 注册: 2015-08-03
- 性别: MM
- 专业: 环境工程
6楼2018-01-10 17:18:27
huaidan0331
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 176.9
- 帖子: 81
- 在线: 26.6小时
- 虫号: 4003214
- 注册: 2015-08-03
- 性别: MM
- 专业: 环境工程
7楼2018-01-10 17:20:54
8楼2018-01-10 17:59:07
461063968
铁杆木虫 (正式写手)
好好做勤劳做
- 应助: 2 (幼儿园)
- 金币: 10247.1
- 散金: 43
- 红花: 7
- 帖子: 985
- 在线: 186.9小时
- 虫号: 1121247
- 注册: 2010-10-13
- 性别: GG
- 专业: 碳素材料与超硬材料
9楼2018-01-10 23:25:05
huaidan0331
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 176.9
- 帖子: 81
- 在线: 26.6小时
- 虫号: 4003214
- 注册: 2015-08-03
- 性别: MM
- 专业: 环境工程
10楼2018-01-11 08:22:29