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

» 猜你喜欢

博士论文被抄袭已经有34人回复
申博求助已经有9人回复
前同事拿我以前未中的国自然标书申请今年的国自然，现在基金委发来调查函已经有53人回复
召集青年编委已经有8人回复
Chemical Engineering Journal投稿3周了，一直显示With editor状态。这是送审了吗？已经有10人回复
0854－0855调剂已经有10人回复
南京大学-广州大学联合招聘博士后欢迎广大优秀人才！！！已经有11人回复
Nature一直在编辑手里，考虑好几天了，是悬了吗已经有7人回复
博士生招生！！已经有5人回复
国社科项目，你们学校都限额申报吗？已经有8人回复

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

回帖支持 ( 显示支持度最高的前 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

lvchengrui

专家顾问 (正式写手)

专家经验: +12
应助: 4 (幼儿园)
金币: 940
散金: 235
红花: 4
帖子: 320
在线: 283.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"

Rplot.png

赞一下(2人)

gps

11楼2018-01-11 09:28:09

cangture

木虫 (正式写手)

应助: 29 (小学生)
金币: 1609.9
散金: 1573
红花: 5
帖子: 514
在线: 396.8小时
虫号: 1442130
注册: 2011-10-14
性别: GG
专业: 金属材料的合金相、相变及

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

origin可以画出来

赞一下(1人)

4楼2018-01-10 15:59:06

lvchengrui

专家顾问 (正式写手)

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

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

表情是圆括号右半部分，“)”,

赞一下(1人)

gps

12楼2018-01-11 09:31:15

huaidan0331

铜虫 (小有名气)

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

引用回帖:

这个看上去有点高深呀，一时有点看不懂，等我有时间的好好研究一下，这次任务有点紧

，还是多谢您写的这么详尽的回答，谢谢

赞一下(1人)

17楼2018-01-12 15:48:54

普通回帖

匿名

应助: (幼儿园)
在线:
虫号: 0

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

本帖仅楼主可见

2楼2018-01-10 14:54:29

已阅申请SEPI 回复此楼编辑查看我的主页

perfectpoint

铁杆木虫 (著名写手)

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

★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
paperhunter: 金币+1, 鼓励交流 2018-01-11 09:49:11

可以在Origin里面构造数据形成偏移

3楼2018-01-10 15:49:48

huaidan0331

铜虫 (小有名气)

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

引用回帖:

4楼: Originally posted by cangture at 2018-01-10 15:59:06
origin可以画出来

请问，怎么画呀，我研究半天没研究出来

发自小木虫IOS客户端

5楼2018-01-10 17:18:25

huaidan0331

铜虫 (小有名气)

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

引用回帖:

4楼: Originally posted by cangture at 2018-01-10 15:59:06
origin可以画出来

请问，怎么画呀，我研究半天没研究出来

发自小木虫IOS客户端

6楼2018-01-10 17:18:27

huaidan0331

铜虫 (小有名气)

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

引用回帖:

4楼: Originally posted by cangture at 2018-01-10 15:59:06
origin可以画出来

是选哪个图形呢，是散点图，折线图还是哪个呢

发自小木虫IOS客户端

7楼2018-01-10 17:20:54

persieyo

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 304.5
散金: 10
红花: 1
帖子: 105
在线: 40.4小时
虫号: 7597463
注册: 2017-12-09
性别: MM
专业: 耳及侧颅底疾病

excel？

发自小木虫IOS客户端

8楼2018-01-10 17:59:07

461063968

铁杆木虫 (正式写手)

好好做勤劳做

应助: 2 (幼儿园)
金币: 10247.1
散金: 43
红花: 7
帖子: 985
在线: 186.9小时
虫号: 1121247
注册: 2010-10-13
性别: GG
专业: 碳素材料与超硬材料

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

怎么感觉excel做的

发自小木虫Android客户端

都挺好的

9楼2018-01-10 23:25:05

huaidan0331

铜虫 (小有名气)

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

引用回帖:

9楼: Originally posted by 461063968 at 2018-01-10 23:25:05
怎么感觉excel做的

也画不出来呢

发自小木虫IOS客户端

10楼2018-01-11 08:22:29