| 查看: 3963 | 回复: 21 | |||
huaidan0331铜虫 (小有名气)
|
[交流]
论文画图求助信息！ 已有9人参与
|
||
请教大位大神，下面这个图是用什么软件画的？看着很好看，我用origin没有画出来呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
085602调剂 初试总分335
已经有7人回复
-
化学357分，考研调剂
已经有7人回复
-
278求调剂
已经有12人回复
-
085400电子信息319求调剂（接受跨专业调剂）
已经有6人回复
-
323求调剂
已经有7人回复
-
一志愿北京2，材料与化工308求调剂
已经有6人回复
-
26考研调剂0710 0860
已经有13人回复
-
296材料专硕求调剂
已经有22人回复
-
材料调剂
已经有12人回复
-
285求调剂
已经有5人回复
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
