r - 根据条件分配行程编号
问题描述
我有一个时间序列数据。我想在“soak”> 3600列时对行进行分组和编号。当soak > 3600时的第一行编号为1,连续的行也编号为1,直到另一行满足soak > 3600的条件。然后那行和后续行编号为 2,直到第三次出现浸泡 > 3600。
还提供了我的数据的小样本和我尝试过的代码。
我的代码进行了计数,但似乎使用 ave() 给了我一些十进制数字......有没有办法输出整数?
starts <- structure(list(datetime = structure(c(1440578907, 1440579205,
1440579832, 1440579885, 1440579926, 1440579977, 1440580044, 1440580106,
1440580195, 1440580256, 1440580366, 1440580410, 1440580476, 1440580529,
1440580931, 1440580966, 1440587753, 1440587913, 1440587933, 1440587954
), class = c("POSIXct", "POSIXt"), tzone = ""), soak = c(NA,
70L, 578L, 21L, 2L, 41L, 14L, 16L, 32L, 9L, 45L, 20L, 51L, 25L,
364L, 4L, 6764L, 20L, 4L, 5L)), row.names = c(NA, -20L), class = c("data.table",
"data.frame"), .internal.selfref = <pointer: 0x000000000a4d1ef0>)
starts$trip <- with(starts, ave(tdiff, cumsum(replace(soka, NA, 10000) > 3600)))
解决方案
使用dplyr
library(dplyr)
starts %>% mutate(trip = cumsum(replace(soak, is.na(soak), 1) > 3600))
并以 R 为基础
starts$trip = with(starts, ave(soak, FUN=function(x) cumsum(replace(x, is.na(x), 1) > 3600)))
推荐阅读
- laravel - 如何在验证的 after 函数中访问请求参数?
- selenium - 当 Protractor 测试远程运行时,浏览器 URL 不加载
- go - Type a type后,不能再混用
- postgresql - 如何重置表的存储参数
- reactjs - 你如何在反应中设置嵌套 css 的样式?
- javascript - 当我使用 JQuery.find 时,哪个是“选择”选项列表的 jQuery 选择器
- javafx - 如何使 JavaFX Stage 始终处于底部?
- java - 如何在JAVA中找到随机生成的数字的平均值
- c - 如何使用 C 或 glsl 实现 2D FFT 以将图像转换为频率空间并返回
- c - 调用 fork() 然后变成调用 sys_fork() 的过程是什么?