24小时热门版块排行榜    

查看: 4069  |  回复: 21

huaidan0331

铜虫 (小有名气)

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

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

论文画图求助信息!


发自小木虫IOS客户端
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

perfectpoint

铁杆木虫 (著名写手)


小木虫: 金币+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好看一些。。。
论文画图求助信息!-1
13楼2018-01-11 11:23:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lvchengrui

专家顾问 (正式写手)

★ ★ ★ ★
小木虫: 金币+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"
论文画图求助信息!-2
Rplot.png

gps
11楼2018-01-11 09:28:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cangture

木虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
origin可以画出来
4楼2018-01-10 15:59:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lvchengrui

专家顾问 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
表情是圆括号右半部分,“)”,
gps
12楼2018-01-11 09:31:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)

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

&gt; require(ggplot2)
&gt; figuredata &lt;- read.csv(&quot;c:/figuredata.csv&quot;,
+                        header = TRUE)
&gt; figure ...

这个看上去有点高深呀,一时有点看不懂,等我有时间的好好研究一下,这次任务有点紧,还是多谢您写的这么详尽的回答,谢谢
17楼2018-01-12 15:48:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

匿名


小木虫: 金币+0.5, 给个红包,谢谢回帖
本帖仅楼主可见
2楼2018-01-10 14:54:29
已阅   申请SEPI   回复此楼   编辑   查看我的主页

perfectpoint

铁杆木虫 (著名写手)

★ ★
小木虫: 金币+0.5, 给个红包,谢谢回帖
paperhunter: 金币+1, 鼓励交流 2018-01-11 09:49:11
可以在Origin里面构造数据形成偏移
3楼2018-01-10 15:49:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)

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

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

发自小木虫IOS客户端
5楼2018-01-10 17:18:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)

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

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

发自小木虫IOS客户端
6楼2018-01-10 17:18:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)

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

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

发自小木虫IOS客户端
7楼2018-01-10 17:20:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

persieyo

银虫 (小有名气)

8楼2018-01-10 17:59:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

461063968

铁杆木虫 (正式写手)

好好做勤劳做


小木虫: 金币+0.5, 给个红包,谢谢回帖
怎么感觉excel做的

发自小木虫Android客户端
都挺好的
9楼2018-01-10 23:25:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)

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

也画不出来呢

发自小木虫IOS客户端
10楼2018-01-11 08:22:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 huaidan0331 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 jCd0dEvKHShX 2026-08-29 3/150 2026-08-29 23:14 by ZPa0EcMwuECS
[基金申请] 中青基了要发朋友圈吗? +4 349506619 2026-08-28 4/200 2026-08-29 22:41 by alongwaytogo
[基金申请] 国社科申报系统有变化 +3 kynobel 2026-08-23 3/150 2026-08-29 21:57 by 余韵清
[博后之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-29 21:33 by 4qO8zhfjr2AX
[基金申请] 有没有仍没收到信息的 +5 德尚中行 2026-08-27 6/300 2026-08-29 18:10 by manplx
[博后之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +6 ASdOkHsho7FD 2026-08-28 7/350 2026-08-29 17:31 by 4FFAWE8HcgUD
[教师之家] 导师吐槽:我怎么摊上了这么个极品研究生! +9 苏东坡二世 2026-08-23 9/450 2026-08-29 14:41 by hustersqt
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 ASdOkHsho7FD 2026-08-28 4/200 2026-08-29 14:02 by jCd0dEvKHShX
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金不中,共勉 +11 eulota 2026-08-26 11/550 2026-08-28 14:22 by 火星超人xi
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
请填处理意见