R - ggplot 根据日期在同一图表上绘制两条线
驼鹿
合并后，子集我的数据，并使用 this: 将 DATE 列转换为日期时间atms$DATE<-dmy_hms(as.POSIXct(atms$DATE,tz=Sys.timezone()))，它看起来像这样：
ATM DATE DENOM_1 REMAIN_1 DENOM_2 REMAIN_2 Total
176 8 2020-09-13 19:00:00 50 1334 100 1494 2828
177 8 2020-09-13 19:01:00 50 1334 100 1494 2828
178 8 2020-09-13 19:02:00 50 1334 100 1494 2828
179 8 2020-09-13 19:03:00 50 1334 100 1494 2828
180 8 2020-09-13 19:04:00 50 1334 100 1494 2828
181 8 2020-09-13 19:05:00 50 1334 100 1494 2828
182 8 2020-09-13 19:06:00 50 1331 100 1493 2824
183 8 2020-09-13 19:07:00 50 1317 100 1487 2804
184 8 2020-09-13 19:08:00 50 1315 100 1471 2786
185 8 2020-09-13 19:09:00 50 1305 100 1468 2773
186 8 2020-09-13 19:10:00 50 1302 100 1459 2761
187 8 2020-09-13 19:11:00 50 1278 100 1428 2706
188 8 2020-09-13 19:12:00 50 1275 100 1421 2696
189 8 2020-09-13 19:13:00 50 1238 100 1392 2630
190 8 2020-09-13 19:14:00 50 1204 100 1322 2526
191 8 2020-09-13 19:15:00 50 1153 100 1236 2389
192 8 2020-09-13 19:16:00 50 1109 100 1140 2249
193 8 2020-09-13 19:17:00 50 1045 100 1047 2092
194 8 2020-09-13 19:18:00 50 974 100 974 1948
195 8 2020-09-13 19:19:00 50 932 100 868 1800
196 8 2020-09-13 19:20:00 50 871 100 781 1652
197 8 2020-09-13 19:21:00 50 841 100 720 1561
198 8 2020-09-13 19:22:00 50 829 100 705 1534
199 8 2020-09-13 19:22:40 50 825 100 696 1521
200 8 2020-09-13 19:23:00 50 825 100 696 1521
7576 8 2020-09-20 19:00:00 50 1097 100 698 1795
7577 8 2020-09-20 19:01:00 50 1097 100 698 1795
7578 8 2020-09-20 19:02:00 50 1097 100 698 1795
7579 8 2020-09-20 19:03:00 50 1097 100 698 1795
7580 8 2020-09-20 19:04:00 50 1097 100 698 1795
7581 8 2020-09-20 19:05:00 50 1097 100 698 1795
7582 8 2020-09-20 19:06:00 50 1085 100 691 1776
7583 8 2020-09-20 19:07:00 50 1085 100 689 1774
7584 8 2020-09-20 19:08:00 50 1068 100 680 1748
7585 8 2020-09-20 19:09:00 50 1064 100 669 1733
7586 8 2020-09-20 19:10:00 50 1039 100 647 1686
7587 8 2020-09-20 19:11:00 50 1014 100 622 1636
7588 8 2020-09-20 19:12:00 50 1007 100 600 1607
7589 8 2020-09-20 19:13:00 50 991 100 578 1569
7590 8 2020-09-20 19:14:00 50 975 100 552 1527
7591 8 2020-09-20 19:15:00 50 880 100 473 1353
7592 8 2020-09-20 19:16:00 50 816 100 403 1219
7593 8 2020-09-20 19:17:00 50 757 100 341 1098
7594 8 2020-09-20 19:18:00 50 707 100 290 997
7595 8 2020-09-20 19:19:00 50 680 100 256 936
7596 8 2020-09-20 19:20:00 50 644 100 150 794
7597 8 2020-09-20 19:21:00 50 630 100 139 769
7598 8 2020-09-20 19:21:51 50 623 100 110 733
7599 8 2020-09-20 19:22:00 50 623 100 110 733
7600 8 2020-09-20 19:23:00 50 623 100 110 733
我想在同一图表上的一行中绘制第 13 天的总数，并在另一行中绘制第 20 天的总数。最初，数据被分成两个 .dat 文件，每个日期一个，我尝试仅绘制第 13 天的图形ggplot()，使用将其添加到空的geom_line()，然后将geomline()第 20 天的独立添加到相同的ggplot，每行都有自己的“ X”轴在其“aes”内如下：geom_line(data=myData,aes(x=correspondingDate,y=Total))，但我只看到一条线代表总数，另一条线是隐藏的；然后我尝试了两条线的“全局”X 轴，通过使用ggplot(data=myData,aes(x=date13))然后geom_line(data=myData,y=totalCorrespondingDate))为每条线代表每一天，但我只看到两条垂直线，一条向左，另一条向右，X 轴显示奇怪日期。
我应该将数据按天分开吗？如果是，我如何“绘制”我的 X 轴以包括这两天？如果不是，当列是日期时间时，我如何告诉 ggplot 仅根据日期来分隔数据？我知道如何在基本级别使用融化功能，但我不知道如何告诉它只需要一天中的一天来制作“分区”。
乔恩·斯普林
我建议创建两个新变量，一个用于跟踪行所属的日期，另一个用于显示一天中的时间，但使用一个公共日期。例如：
library(tidyverse)
df %>%
mutate(DATE_DAY = floor_date(DATE, "day"), # day of the row
DATE_TIME = min(DATE_DAY) + (DATE - DATE_DAY)) %>% # datetime shifted to 1st day (arbitrarily)
ggplot(aes(DATE_TIME, Total, color = DATE_DAY, group = DATE_DAY)) +
geom_line()
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
蓝屏死机没有修复解决方案
- 2
计算数据帧中每行的NA
- 3
UITableView的项目向下滚动后更改颜色，然后快速备份
- 4
Node.js中未捕获的异常错误，发生调用
- 5
在 Python 2.7 中。如何从文件中读取特定文本并分配给变量
- 6
Linux的官方Adobe Flash存储库是否已过时？
- 7
验证REST API参数
- 8
ggplot：对齐多个分面图-所有大小不同的分面
- 9
Mac OS X更新后的GRUB 2问题
- 10
通过 Git 在运行 Jenkins 作业时获取 ClassNotFoundException
- 11
带有错误“ where”条件的查询如何返回结果？
- 12
用日期数据透视表和日期顺序查询
- 13
VB.net将2条特定行导出到DataGridView
- 14
如何从视图一次更新多行（ASP.NET - Core）
- 15
Java Eclipse中的错误13，如何解决？
- 16
尝试反复更改屏幕上按钮的位置 - kotlin android studio
- 17
离子动态工具栏背景色
- 18
应用发明者仅从列表中选择一个随机项一次
- 19
当我尝试下载 StanfordNLP en 模型时，出现错误
- 20
python中的boto3文件上传
- 21
在同一Pushwoosh应用程序上Pushwoosh多个捆绑ID
我来说两句