24小时热门版块排行榜

返回列表

huaidan0331

铜虫 (小有名气)

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

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

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

发自小木虫IOS客户端

回复此楼

» 猜你喜欢

Cas 72-43-5需要30g，定制合成，能接单的留言已经有8人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有6人回复
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？已经有8人回复
磺酰氟产物，毕不了业了！已经有5人回复
论文终于录用啦！满足毕业条件了已经有25人回复
2026年机械制造与材料应用国际会议（ICMMMA 2026）已经有3人回复
自荐读博已经有3人回复
不自信的我已经有5人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复

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"