R 绘制采样开始和采样结束之间的事件

发布于03月09日

我有来自不同recording的数据，表明发生了time个事件.我想知道这time个点在采样窗口期间是变得更密集还是变得更密集.对于我知道的每recording个采样窗口何时打开(sample_start)和关闭(sample_end).但我不知道如何将这些时间窗口融入到情节中.相反，time级的范围是从第一个观察到的事件到最后一个观察到的事件:

library(tidyverse)
df %>%

  # shorten labels for `recording`:
  mutate(recording = str_remove(recording, "^.+?_.+?_")) %>%
  
  # create starttime and endtime of events:
  mutate(Starttime_ms = log(time),
         Endtime_ms = log(time) + 0.01) %>%
  
  # plot:
  ggplot(aes(x = Starttime_ms, xend = Endtime_ms,
             y = recording, yend = recording,
             color = setting
  )) +
  
  # draw segments:
  geom_segment(size = 7) +
  
  # use facets:
  facet_wrap(~ recording, scales = "free_x", 
             ncol = 2)+

  theme(axis.text.y = element_blank()) +
  theme(axis.ticks.y = element_blank())
  theme(legend.position = "none")

How can for each 100 the time window indicated in columns 101 and 102 be incorporated into the plot?

Data(编辑):

df <- structure(list(recording = c("PECII_PL_Car_20210724", "PECII_PL_Car_20210724", 
"PECII_PL_Car_20210724", "PECII_PL_Car_20210607", "PECII_PL_Car_20210607", 
"PECII_PL_Car_20210607", "PECII_PL_Car_20210607", "PECII_PL_Car_20210607", 
"PECII_PL_Car_20210607", "PECII_PL_Car_20210607", "PECII_PL_Car_20210607", 
"PECII_PL_Car_20210607", "PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", 
"PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", 
"PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", 
"PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", "PECII_PL_Brkfst_20220703", 
"PECII_PL_Brkfst_20220703", "PECII_PL_Game_20220707", "PECII_PL_Game_20220707", 
"PECII_PL_Game_20220707", "PECII_PL_Game_20220707", "PECII_PL_Game_20220707", 
"PECII_PL_Game_20220707", "PECII_PL_Game_20220707", "PECII_PL_Game_20220707", 
"PECII_PL_Game_20220707", "PECII_PL_Game_20220707", "PECII_PL_Game_20220707", 
"PECII_PL_Game_20220707", "PECII_PL_Game_20220707", "PECII_PL_Game_20220707", 
"PECII_DE_Car_20160924", "PECII_DE_Car_20160924", "PECII_DE_Car_20160924", 
"PECII_DE_Car_20160924", "PECII_DE_Car_20160924", "PECII_DE_Car_20160924", 
"PECII_DE_Car_20160924", "PECII_DE_Car_20160924", "PECII_DE_Car_20160924", 
"PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", 
"PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", 
"PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", 
"PECII_DE_Car_20171031_1", "PECII_DE_Car_20171031_1", "PECII_DE_Game_20151113", 
"PECII_DE_Game_20151113", "PECII_DE_Game_20151113", "PECII_DE_Game_20151113", 
"PECII_DE_Game_20151113", "PECII_DE_Game_20151113", "PECII_DE_Game_20151113", 
"PECII_DE_Game_20151113", "PECII_DE_Game_20151113", "PECII_DE_Game_20151113", 
"PECII_DE_Game_20151113", "PECII_DE_Game_20151113", "PECII_DE_Game_20151113", 
"PECII_DE_Game_20151113", "PECII_DE_Game_20151113", "PECII_DE_Game_20211103", 
"PECII_DE_Game_20211103", "PECII_DE_Game_20211103", "PECII_DE_Game_20211103", 
"PECII_DE_Game_20211103", "PECII_DE_Game_20211103", "PECII_DE_Game_20211103", 
"PECII_DE_Game_20211103", "PECII_DE_Game_20211103", "PECII_DE_Game_20211103", 
"PECII_DE_Game_20211103", "PECII_DE_Game_20211103", "PECII_DE_Game_20211103", 
"PECII_DE_Game_20211103", "PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", 
"PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", 
"PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", 
"PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20161025", 
"PECII_DE_Brkfst_20161025", "PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", 
"PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", 
"PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", 
"PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", 
"PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", "PECII_DE_Brkfst_20160213", 
"PECII_IT_Car_20220327", "PECII_IT_Car_20220327", "PECII_IT_Car_20220327", 
"PECII_IT_Car_20220327", "PECII_IT_Car_20220327", "PECII_IT_Car_20220327", 
"PECII_IT_Car_20160720", "PECII_IT_Car_20160720", "PECII_IT_Car_20160720", 
"PECII_IT_Car_20160720", "PECII_IT_Car_20160720", "PECII_IT_Car_20160720", 
"PECII_IT_Car_20160720", "PECII_IT_Car_20160720", "PECII_IT_Car_20160720", 
"PECII_IT_Car_20160720", "PECII_IT_Car_20160720", "PECII_IT_Car_20160720", 
"PECII_IT_Car_20160720", "PECII_IT_Car_20160720", "PECII_IT_Car_20160720", 
"PECII_IT_Game_20210726", "PECII_IT_Game_20210726", "PECII_IT_Game_20210726", 
"PECII_IT_Game_20210726", "PECII_IT_Game_20210726", "PECII_IT_Game_20210726", 
"PECII_IT_Game_20210726", "PECII_IT_Game_20210726", "PECII_IT_Game_20210726", 
"PECII_IT_Game_20210726", "PECII_IT_Game_20210726", "PECII_IT_Game_20210726", 
"PECII_IT_Game_20210726", "PECII_IT_Game_20210726", "PECII_IT_Game_20210726", 
"PECII_IT_Brkfst_20210729", "PECII_IT_Brkfst_20210729", "PECII_IT_Brkfst_20210729", 
"PECII_IT_Brkfst_20210729", "PECII_IT_Brkfst_20210729", "PECII_IT_Brkfst_20210729", 
"PECII_IT_Brkfst_20210729", "PECII_IT_Brkfst_20210729", "PECII_IT_Brkfst_20210729", 
"PECII_IT_Brkfst_20210729"), time = c(299915L, 305950L, 414950L, 
367211L, 368763L, 859785L, 992532L, 1778677L, 1795244L, 1843270L, 
1895460L, 1898543L, 1765310L, 1780940L, 2078415L, 2454645L, 2562760L, 
2645170L, 2651320L, 2658010L, 2917690L, 2923135L, 2924780L, 2927841L, 
1990025L, 2016883L, 2107474L, 2121066L, 2168096L, 2192847L, 2320129L, 
2413563L, 2447052L, 2528805L, 2547761L, 2939699L, 3142276L, 3145813L, 
229405L, 516918L, 544703L, 2150852L, 2472854L, 2561759L, 3036890L, 
3161999L, 3176270L, 136249L, 324244L, 433471L, 442320L, 483069L, 
518368L, 1853809L, 1878207L, 2288670L, 2326090L, 2333598L, 774829L, 
803126L, 998004L, 1125324L, 1242183L, 1606054L, 1636446L, 1809308L, 
1852619L, 1900553L, 2314462L, 2529171L, 2640496L, 2862360L, 3150111L, 
495890L, 580040L, 582880L, 583515L, 598263L, 639467L, 991005L, 
1392617L, 1621957L, 1624635L, 2133469L, 2196388L, 2286699L, 2421000L, 
783963L, 839886L, 862204L, 879443L, 980761L, 1106613L, 1531772L, 
1541533L, 1568408L, 1573431L, 1633113L, 1642761L, 195015L, 232009L, 
253045L, 371703L, 444946L, 499634L, 1008928L, 1051858L, 1302978L, 
1335671L, 1490043L, 1627051L, 1933254L, 2341028L, 186152L, 187519L, 
693341L, 744425L, 888961L, 2322511L, 2492110L, 2827269L, 2864468L, 
2973513L, 4767243L, 6472499L, 6514817L, 6569297L, 6621823L, 6627898L, 
6722647L, 6730885L, 6794678L, 6796764L, 6799105L, 740415L, 828366L, 
830149L, 852016L, 995265L, 1086965L, 1244390L, 1246345L, 1332666L, 
1466466L, 1605782L, 1701232L, 2069424L, 2092440L, 2131149L, 776770L, 
800130L, 1207700L, 1237250L, 1350140L, 1552420L, 1655680L, 1823290L, 
1840567L, 1850970L), sample_start = c(184850L, 184850L, 184850L, 
16965L, 16965L, 16965L, 16965L, 16965L, 16965L, 16965L, 16965L, 
16965L, 1699690L, 1699690L, 1699690L, 1699690L, 1699690L, 1699690L, 
1699690L, 1699690L, 1699690L, 1699690L, 1699690L, 1699690L, 1894344L, 
1894344L, 1894344L, 1894344L, 1894344L, 1894344L, 1894344L, 1894344L, 
1894344L, 1894344L, 1894344L, 1894344L, 1894344L, 1894344L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 600014L, 600014L, 600014L, 600014L, 600014L, 600014L, 
600014L, 600014L, 600014L, 600014L, 600014L, 600014L, 600014L, 
600014L, 600014L, 209000L, 209000L, 209000L, 209000L, 209000L, 
209000L, 209000L, 209000L, 209000L, 209000L, 209000L, 209000L, 
209000L, 209000L, 664238L, 664238L, 664238L, 664238L, 664238L, 
664238L, 664238L, 664238L, 664238L, 664238L, 664238L, 664238L, 
178020L, 178020L, 178020L, 178020L, 178020L, 178020L, 178020L, 
178020L, 178020L, 178020L, 178020L, 178020L, 178020L, 178020L, 
80L, 80L, 80L, 80L, 80L, 80L, 2479820L, 2479820L, 2479820L, 2479820L, 
2479820L, 2479820L, 2479820L, 2479820L, 2479820L, 2479820L, 2479820L, 
2479820L, 2479820L, 2479820L, 2479820L, 740415L, 740415L, 740415L, 
740415L, 740415L, 740415L, 740415L, 740415L, 740415L, 740415L, 
740415L, 740415L, 740415L, 740415L, 740415L, 419990L, 419990L, 
419990L, 419990L, 419990L, 419990L, 419990L, 419990L, 419990L, 
419990L), setting = c("Car", "Car", "Car", "Car", "Car", "Car", 
"Car", "Car", "Car", "Car", "Car", "Car", "Brkfst", "Brkfst", 
"Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", 
"Brkfst", "Brkfst", "Brkfst", "Game", "Game", "Game", "Game", 
"Game", "Game", "Game", "Game", "Game", "Game", "Game", "Game", 
"Game", "Game", "Car", "Car", "Car", "Car", "Car", "Car", "Car", 
"Car", "Car", "Car", "Car", "Car", "Car", "Car", "Car", "Car", 
"Car", "Car", "Car", "Car", "Game", "Game", "Game", "Game", "Game", 
"Game", "Game", "Game", "Game", "Game", "Game", "Game", "Game", 
"Game", "Game", "Game", "Game", "Game", "Game", "Game", "Game", 
"Game", "Game", "Game", "Game", "Game", "Game", "Game", "Game", 
"Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", 
"Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", 
"Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", 
"Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Car", "Car", 
"Car", "Car", "Car", "Car", "Car", "Car", "Car", "Car", "Car", 
"Car", "Car", "Car", "Car", "Car", "Car", "Car", "Car", "Car", 
"Car", "Game", "Game", "Game", "Game", "Game", "Game", "Game", 
"Game", "Game", "Game", "Game", "Game", "Game", "Game", "Game", 
"Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", "Brkfst", 
"Brkfst", "Brkfst", "Brkfst"), sample_end = c(1320055L, 1320055L, 
1320055L, 2068089L, 2068089L, 2068089L, 2068089L, 2068089L, 2068089L, 
2068089L, 2068089L, 2068089L, 2928880L, 2928880L, 2928880L, 2928880L, 
2928880L, 2928880L, 2928880L, 2928880L, 2928880L, 2928880L, 2928880L, 
2928880L, 3145721L, 3145721L, 3145721L, 3145721L, 3145721L, 3145721L, 
3145721L, 3145721L, 3145721L, 3145721L, 3145721L, 3145721L, 3145721L, 
3145721L, 3891074L, 3891074L, 3891074L, 3891074L, 3891074L, 3891074L, 
3891074L, 3891074L, 3891074L, 2330030L, 2330030L, 2330030L, 2330030L, 
2330030L, 2330030L, 2330030L, 2330030L, 2330030L, 2330030L, 2330030L, 
3161313L, 3161313L, 3161313L, 3161313L, 3161313L, 3161313L, 3161313L, 
3161313L, 3161313L, 3161313L, 3161313L, 3161313L, 3161313L, 3161313L, 
3161313L, 2425163L, 2425163L, 2425163L, 2425163L, 2425163L, 2425163L, 
2425163L, 2425163L, 2425163L, 2425163L, 2425163L, 2425163L, 2425163L, 
2425163L, 1650063L, 1650063L, 1650063L, 1650063L, 1650063L, 1650063L, 
1650063L, 1650063L, 1650063L, 1650063L, 1650063L, 1650063L, 2346168L, 
2346168L, 2346168L, 2346168L, 2346168L, 2346168L, 2346168L, 2346168L, 
2346168L, 2346168L, 2346168L, 2346168L, 2346168L, 2346168L, 2446240L, 
2446240L, 2446240L, 2446240L, 2446240L, 2446240L, 6802270L, 6802270L, 
6802270L, 6802270L, 6802270L, 6802270L, 6802270L, 6802270L, 6802270L, 
6802270L, 6802270L, 6802270L, 6802270L, 6802270L, 6802270L, 2138141L, 
2138141L, 2138141L, 2138141L, 2138141L, 2138141L, 2138141L, 2138141L, 
2138141L, 2138141L, 2138141L, 2138141L, 2138141L, 2138141L, 2138141L, 
1875120L, 1875120L, 1875120L, 1875120L, 1875120L, 1875120L, 1875120L, 
1875120L, 1875120L, 1875120L)), class = "data.frame", row.names = c(NA, 
-159L))

R 绘制采样开始和采样结束之间的事件

推荐答案

R相关问答推荐

更改Heatmap Annotation对象的名称

R Tidymodels textercipes-使用spacyR进行标记化-如何从生成的标记列表中删除标点符号

获取列中值更改的行号

Ggplot2中的重复注记

为什么我的基准测试会随着样本量的增加而出现一些波动？

一小时满足条件的日期的 Select

合并DFS列表并将索引提取为新列

哪一行和行和 Select 特定行，但是考虑到Nas

如何指定我的函数应该查找哪个引用表？

有没有办法使用ggText，<；Sub>；&；<；sup>；将上标和下标添加到同一元素？

在R中，我如何使用滑动窗口计算位置，然后进行过滤？

ggplot R：X，Y，Z使用固定/等距的X，Y坐标绘制六边形热图

根据r中每行中的日期序列，使用列名序列创建新列

以任意顺序提取具有多个可能匹配项的组匹配项

R预测包如何处理ARIMA(Auto.arima函数)中的缺失值

在不重复主题的情况下重新排列组

我已经运行了几个月的代码的`Palette()`中出现了新的gglot错误

在鼠标悬停时使用Plotly更改geom_point大小

将某个阈值以下的列中的值分类到不同的列中，否则保持该列的原样

向内存不足的数据帧添加唯一行