24小时热门版块排行榜

返回列表

huaidan0331

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 176.9
帖子: 81
在线: 26.6小时
虫号: 4003214
注册: 2015-08-03
性别: MM
专业: 环境工程

[交流] 论文画图求助信息！已有9人参与

请教大位大神，下面这个图是用什么软件画的？看着很好看，我用origin没有画出来呢

发自小木虫IOS客户端

回复此楼

» 猜你喜欢

投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有6人回复
中科院杭州医学所招收博士生一名（生物分析化学、药物递送）已经有4人回复
求个博导看看已经有18人回复
自荐读博已经有6人回复
青基代表作，AAAI之类的A会的special track在国内认可度高吗？还是归为workshop之流？已经有3人回复
上海工程技术大学【激光智能制造】课题组招收硕士已经有6人回复
上海工程技术大学张培磊教授团队招收博士生已经有4人回复
临港实验室与上科大联培博士招生1名已经有9人回复
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？已经有6人回复

1楼 2018-01-10 14:48:07

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

回帖支持 ( 显示支持度最高的前 50 名 )

perfectpoint

铁杆木虫 (著名写手)

应助: 532 (博士)
金币: 6348.5
散金: 557
红花: 85
帖子: 1882
在线: 1164.7小时
虫号: 4009201
注册: 2015-08-06
性别: GG
专业: 电气科学与工程

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

引用回帖:

11楼: Originally posted by lvchengrui at 2018-01-11 09:28:09
ggplot2可以应付，替换下面的TS数据

> require(ggplot2)
> figuredata <- read.csv("c:/figuredata.csv",
+ header = TRUE)
> figure ...

感觉还是Origin好看一些。。。

赞一下(3人)

回复此楼

13楼2018-01-11 11:23:46

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lvchengrui

专家顾问 (正式写手)

专家经验: +12
应助: 4 (幼儿园)
金币: 929
散金: 255
红花: 4
帖子: 327
在线: 284.6小时
虫号: 2448875
注册: 2013-05-05
性别: GG
专业: 信息系统与管理
管辖: 程序语言

★ ★ ★ ★
小木虫: 金币+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"