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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 学术交流区 » 论文投稿 » 论文写作 » 论文画图求助信息！
北京石油化工学院2026年研究生招生接收调剂公告
222/3返回列表上一页123下一页
查看: 3962  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085400电子信息319求调剂（接受跨专业调剂） +5 星星不眨眼喽 2026-04-03 6/300 2026-04-04 21:50 by hemengdong
[考研] 一志愿北京化工大学，初试成绩350求调剂 +9 沿岸?贝壳 2026-04-04 10/500 2026-04-04 16:32 by dongzh2009
[考研] 求调剂 +3 农业工程与信息� 2026-04-04 3/150 2026-04-04 12:19 by 舍而后得
[考研] 一志愿中国石油大学化学工程323分求调剂 +4 化工专硕323分 2026-04-03 6/300 2026-04-03 22:12 by dongzh2009
[考研] 320调剂 +4 农业工程与信息� 2026-04-03 4/200 2026-04-03 21:40 by lbsjt
[考研] 求调剂 +4 15064154688 2026-04-03 5/250 2026-04-03 15:07 by zrongyan
[考研] 282求调剂 不挑专业 求收留 +7 Yam. 2026-03-30 8/400 2026-04-03 14:12 by zhangdingwa
[考研] 273求调剂 +20 李芷新1 2026-03-31 20/1000 2026-04-03 09:58 by linyelide
[考研] 一志愿厦门大学材料工程专硕354找调剂！！！ +8 贝呗钡钡 2026-03-30 8/400 2026-04-03 09:41 by hypershenger
[考研] 一志愿a区211，085601-307分求调剂 +13 党嘉豪 2026-03-31 26/1300 2026-04-03 08:33 by 495374996
[考研] 279求调剂 +5 傅文秋 2026-04-02 5/250 2026-04-02 18:10 by 笔落锦州
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-04-02 3/150 2026-04-02 15:06 by cal0306
[考研] 材料专硕322分 +11 哈哈哈吼吼吼哈 2026-04-01 11/550 2026-04-02 10:52 by lnilvy
[考研] 07生物学求调剂 一志愿同济大学359分 +3 LAMC. 2026-03-30 3/150 2026-04-02 10:26 by 18828373951
[考研] 0710生物学，325求调剂 +3 mkkkkkl 2026-04-01 3/150 2026-04-02 09:48 by Jaylen.
[考研] 求调剂0703 +5 周嘉尧 2026-03-31 8/400 2026-04-01 20:32 by ltltkkk
[考研] 085600，320分求调剂 +5 大馋小子 2026-04-01 6/300 2026-04-01 19:40 by 唐沐儿
[考研] 285求调剂 +7 AZMK 2026-03-30 13/650 2026-04-01 17:00 by 七度不信任
[考研] 288资源与环境专硕求调剂，不限专业，有学上就行 +25 lllllos 2026-03-30 26/1300 2026-04-01 09:52 by 一只好果子?
[考研] 269求调剂 +4 我想读研11 2026-03-31 4/200 2026-03-31 10:04 by cal0306
信息提示
关闭
请填处理意见
关闭