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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 学术交流区 » 论文投稿 » 论文写作 » 论文画图求助信息！
222/3返回列表上一页123下一页
查看: 3943  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 274求调剂 +3 cgyzqwn 2026-03-01 7/350 2026-03-02 10:38 by lature00
[考研] 材料学硕318求调剂 +6 February_Feb 2026-03-01 6/300 2026-03-02 10:36 by 聪明的大松鼠
[考研] 0854复试调剂 276 +4 wmm9 2026-03-01 6/300 2026-03-02 09:28 by 热情沙漠
[考研] 322求调剂 +3 熊境喆 2026-03-01 3/150 2026-03-02 08:44 by houyaoxu
[考研] 085600 英一数二272求调剂 5+3 vida_a 2026-03-01 7/350 2026-03-02 07:51 by ms629
[考研] 高分子化学与物理调剂 +6 好好好1233 2026-02-28 13/650 2026-03-02 07:27 by 好好好1233
[考研] 0857调剂 +4 一ll半 2026-02-28 5/250 2026-03-02 02:33 by 908055542
[考研] 279求调剂 +3 dua1 2026-03-01 4/200 2026-03-02 00:23 by 大脸蛋子
[考研] 一志愿郑大材料学硕298分，求调剂 +5 wsl111 2026-03-01 5/250 2026-03-01 23:45 by 暮雨星晴
[基金申请] 成果系统访问量大，请一小时后再尝试。---NSFC啥时候好哦，已经两天这样了 +4 NSFC2026我来了 2026-02-28 4/200 2026-03-01 22:37 by 铁门栓
[硕博家园] 博士自荐 +7 科研狗111 2026-02-26 11/550 2026-03-01 22:24 by 哲平L
[考研] 0805总分292，求调剂 +7 幻想之殇 2026-03-01 7/350 2026-03-01 21:22 by 公瑾逍遥
[考研] 298求调剂 +6 axyz3 2026-02-28 6/300 2026-03-01 19:00 by 18137688336
[考研] 272求调剂 +6 材紫有化 2026-02-28 6/300 2026-03-01 18:58 by 18137688336
[考研] 0856材料求调剂 +11 hyf hyf hyf 2026-02-28 12/600 2026-03-01 18:57 by 18137688336
[考研] 295求调剂 +7 19171856320 2026-02-28 7/350 2026-03-01 18:54 by 18137688336
[考研] 311求调剂 +6 亭亭亭01 2026-03-01 6/300 2026-03-01 15:41 by 324616
[考研] 311求调剂 +9 南迦720 2026-02-28 10/500 2026-03-01 10:55 by sunny81
[硕博家园] 2025届双非化工硕士毕业，申博 +3 更多的是 2026-02-27 4/200 2026-03-01 10:04 by ztg729
[考研] 085600材料工程一志愿中科大总分312求调剂 +8 吃宵夜1 2026-02-28 10/500 2026-02-28 20:27 by L135790
信息提示
关闭
请填处理意见
关闭