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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 学术交流区 » 论文投稿 » 论文写作 » 论文画图求助信息！
222/3返回列表上一页123下一页
查看: 3853  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭