| 查看: 4058 | 回复: 21 | |||
huaidan0331铜虫 (小有名气)
|
[交流]
论文画图求助信息！ 已有9人参与
|
||
请教大位大神，下面这个图是用什么软件画的？看着很好看，我用origin没有画出来呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
有多少人是今天查系统知道结果的？
已经有18人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有12人回复
-
有没有仍没收到信息的
已经有3人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有8人回复
-
基金不中，共勉
已经有11人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有9人回复
-
2026年叶企孙基金
已经有6人回复
-
国自然面上复盘~欢迎讨论
已经有13人回复
-
基金系统什么内容也没有
已经有9人回复
-
怎么查啊
已经有6人回复
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
