应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 学术交流区 » 论文投稿 » 论文写作 » 论文画图求助信息！
222/3返回列表上一页123下一页
查看: 4063  |  回复: 21
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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"
论文画图求助信息！
Rplot.png
赞一下(2人) 回复此楼
gps
11楼2018-01-11 09:28:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lvchengrui

专家顾问 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
表情是圆括号右半部分，“)”,
赞一下(1人) 回复此楼
gps
12楼2018-01-11 09:31:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

perfectpoint

铁杆木虫 (著名写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
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 ...

感觉还是Origin好看一些。。。
论文画图求助信息！-1
赞一下(3人) 回复此楼
13楼2018-01-11 11:23:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)
引用回帖:
12楼: Originally posted by lvchengrui at 2018-01-11 09:31:15
表情是圆括号右半部分，“)”,

谢谢谢谢，多谢！
回复此楼
14楼2018-01-12 14:35:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)
引用回帖:
13楼: Originally posted by perfectpoint at 2018-01-11 11:23:46
感觉还是Origin好看一些。。。
...

跪求，大神教我一下，输入完数据，我应该怎么做，跪求
赞一下 回复此楼
15楼2018-01-12 14:39:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huaidan0331

铜虫 (小有名气)
引用回帖:
13楼: Originally posted by perfectpoint at 2018-01-11 11:23:46
感觉还是Origin好看一些。。。
...

多谢大神，在你贴出图得提示下，我终于画出来了，多谢了
赞一下 回复此楼
16楼2018-01-12 15:34:48
已阅   回复此楼   关注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 ...

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

huaidan0331

铜虫 (小有名气)
引用回帖:
3楼: Originally posted by perfectpoint at 2018-01-10 15:49:48
可以在Origin里面构造数据形成偏移

哈哈，我现在会画了，才明白你说的是什么意思
赞一下 回复此楼
18楼2018-01-12 15:50:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

perfectpoint

铁杆木虫 (著名写手)
引用回帖:
16楼: Originally posted by huaidan0331 at 2018-01-12 15:34:48
多谢大神，在你贴出图得提示下，我终于画出来了，多谢了...

嗯，搞定就好。
回复此楼
19楼2018-01-12 22:57:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Trelia

金虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
感觉grapher可以

发自小木虫IOS客户端
赞一下 回复此楼
20楼2018-01-12 23:52:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 huaidan0331 的主题更新
222/3返回列表上一页123下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 我就是申请一个面上项目而已，这评审意见是按照杰青的条件评的吧？ +3 gouxfjh 2026-08-28 3/150 2026-08-29 01:01 by jurkat.1640
[基金申请] 投票:  有多少人是今天查系统知道结果的？ +16 爱看书的可乐 2026-08-26 18/900 2026-08-29 00:28 by winsaint
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +13 晴天加油 2026-08-26 14/700 2026-08-28 18:36 by huagongfeihu
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 有没有仍没收到信息的 +3 德尚中行 2026-08-27 3/150 2026-08-28 15:24 by rongshuxia
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +8 苏东坡二世 2026-08-23 8/400 2026-08-28 14:41 by lkforward
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +4 gdd2018 2026-08-28 9/450 2026-08-28 14:22 by jklily
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 基金未中，这种答复是模板吗？ +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜？ 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 范进中举一文的中心思想 +9 炎黄贵胄 2026-08-22 10/500 2026-08-26 15:40 by semaglutide
[基金申请] 能否退出参与的面上项目解除限项 +23 koalala 2026-08-24 26/1300 2026-08-26 14:29 by 宝贝虫子
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
信息提示
关闭
请填处理意见
关闭