Question

谢谢你们到目前为止的帮助！只想在最后一个问题上获得一些帮助。这是我的数据...

Year Month Day Hour   DateTime
1950  1     4   12    1/4/1950 12:00
1950  1     4   13    1/4/1950 13:00 
1950  1     4   14    1/4/1950 14:00 
1950  1     4   15    1/4/1950 15:00 
1950  1     4   18    1/4/1950 18:00 
1950  1     4   21    1/4/1950 21:00 
1950  1     4   22    1/4/1950 22:00 
1950  1     5   23    1/5/1950 23:00

我将数据隔开了，所以您可以看到哪些数据与哪一列一起

我在下面使用了此代码。

rle（cumsum（c（TRUE，diff（dt，unit =“ hour”）！= 1）））$ lengths

创建一个值列表，该值表示连续观察的数量。因此，例如，第一个值是4（因为前四个观察值是连续的），然后是1，然后是3。这正是我想要的，但是我希望按月和年获得这些值。例如，我希望我的结果看起来如下...

Year Month Consecutive 
1950   1      4 
1950   1      1 
1950   1      3

其中连续列对应于上述数据中连续值的数量，但也对应于年份和月份。我不关心在几个月或几年后停止活动。目前，我不知道月份和年份在哪里，仅是连续金额的简单列表！！！另外，感谢您提供第一个代码的人！

Answer 1

我们可以对分组进行操作（假设'DateTime'被转换为datetime类）

library(dplyr)
library(tidyr)
df1 %>%
   mutate(DateTime = as.POSIXct(DateTime, format = "%m/%d/%Y %H:%M")) %>%
   group_by(Year, Month) %>% 
   summarise(Consecutive = list(rle(cumsum(c(TRUE, 
         diff(DateTime, unit = "hour") != 1)))$lengths)) %>%
   unnest

数据

df1 <- structure(list(Year = c(1950L, 1950L, 1950L, 1950L, 1950L, 1950L, 
1950L, 1950L), Month = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), Day = c(4L, 
 4L, 4L, 4L, 4L, 4L, 4L, 5L), Hour = c(12L, 13L, 14L, 15L, 18L, 
 21L, 22L, 23L), DateTime = c("1/4/1950 12:00", "1/4/1950 13:00", 
 "1/4/1950 14:00", "1/4/1950 15:00", "1/4/1950 18:00", "1/4/1950 21:00", 
 "1/4/1950 22:00", "1/5/1950 23:00")), class = "data.frame",
 row.names = c(NA, -8L))

月份和年份的连续观察

1 个答案:

数据