| 查看: 4071 | 回复: 21 | |||
huaidan0331铜虫 (小有名气)
|
[交流]
论文画图求助信息！ 已有9人参与
|
||
请教大位大神，下面这个图是用什么软件画的？看着很好看，我用origin没有画出来呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
面上意见出来了
已经有21人回复
-
能否申诉？
已经有8人回复
-
梦想
已经有5人回复
-
中青基了要发朋友圈吗？
已经有7人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
-
29号明天会评吗
已经有4人回复
-
国社科又开始会评了，不知道这次命运如何
已经有10人回复
-
基金不中，共勉
已经有12人回复
-
为什么到现在没收到通知？
已经有5人回复
-
有没有仍没收到信息的
已经有8人回复
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
投票:
