| 查看: 3854 | 回复: 21 | |||
huaidan0331铜虫 (小有名气)
|
[交流]
论文画图求助信息！ 已有9人参与
|
||
请教大位大神，下面这个图是用什么软件画的？看着很好看，我用origin没有画出来呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
A期刊撤稿
已经有5人回复
-
临港实验室与上科大联培博士招生1名
已经有8人回复
-
26申博自荐
已经有7人回复
-
想换工作。大多数高校都是 评职称时 认可5年内在原单位取得的成果吗？
已经有4人回复
-
带资进组求博导收留
已经有9人回复
-
求助大佬们，伤口沾上了乙腈
已经有6人回复
-
最近几年招的学生写论文不引自己组发的文章
已经有9人回复
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