请问如何创建这样新的一列数据？

对ID进行分组，然后这个ID看的节目如果持续时间小于30分钟则和上一个节目属于同一组（创建新的一列，列名是session），如果超过了30分钟就是新的一组，以此类推。
如图，这种格式。
请问有大佬能用dplyr或者tapply创建这样的一列数据吗？因为数据量非常大，所以要用包来处理，不能用循环和ifelse。有偿，可以增加论坛币，谢谢了！

1. llibrary(dplyr)
   
2. library(zoo)
   
3. 
   
4. out <- data %>%
   
5.   group_by(id) %>%
   
6.   mutate(session = 1:length(jiemu), session0 = session) %>%
   
7.   mutate(session = ifelse(time <=20 & session0 != 1, NA, session)) %>%
   
8.   mutate(session = na.locf(session, na.rm = F)) %>%
   
9.   select(-session0)

复制代码

0029948968 发表于 2019-11-6 01:06
对ID进行分组，然后这个ID看的节目如果持续时间小于30分钟则和上一个节目属于同一组（创建新的一列，列名是 ...

这个感觉比较简单的，如果数据量很大，可能得用data.table

Whig 发表于 2019-11-6 10:10
这个感觉比较简单的，如果数据量很大，可能得用data.table

啊，我老师说让我用dplyr或者tapply，不知道怎么弄。。

skyfx 发表于 2019-11-6 13:08

非常感谢您的回答，可是这样写出来的session不是按照12345顺序排列的，请问如何让他显示不同的组是按照1、2、3、4...排列的呢？非常感谢！

0029948968 发表于 2019-11-6 13:41
非常感谢您的回答，可是这样写出来的session不是按照12345顺序排列的，请问如何让他显示不同的组是按照1、 ...

你附上一些数据作为附件吧，说不清楚。

skyfx 发表于 2019-11-6 15:58
你附上一些数据作为附件吧，说不清楚。

数据样例.rar (4.47 KB)

2019-11-6 16:06:46 上传

example是包含了正确session分组的数据，sample是原始数据。
转换是这样的，就是比如同一个ID下的session分了6个组，那就把数据转换为1~6，而不是显示1、7、13、14、16、20这样的不连续的数据。
非常谢谢您

你看下我在另一个帖子的回复，应该可以了。