如何筛选这样的数据？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图。表格中每一个ID表示每一个病人，num表示用某种药物的次数（第1次，第2次。。。），starttime和endtime分别是这种药物使用的起止时间。随后一列是时间差。我现在想要刷选出针对每一个病人，如果只用过一次药，那么就筛选出第一次。如果用过不止一次，那么筛选出每一次用药的开始时间与上一次用药的结束时间的差值小于一天的所有行。请教大家，这该怎么做（不知道我是否表述清楚[捂脸]）？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：一次用药 起止时间 结束时间 开始时间 药物使用

some thing like this :

library(dplyr)
df %>%
  arrange(ID, num) %>%
  group_by(ID) %>%
  mutate(diff = endtime - lag(starttime))%>%filter(diff<=24)

rainningpoet 发表于 2018-11-16 21:13
some thing like this :

library(dplyr)

针对每一个病人ID，只筛选出diff<=24小时的。一旦出现一次diff>24小时，其后的数据一概不要。这该怎么实现呢？

lanhong1993 发表于 2018-11-17 10:23
针对每一个病人ID，只筛选出diff24小时，其后的数据一概不要。这该怎么实现呢？

some thing like this :
  
  library(dplyr)
df %>%
  arrange(ID, num) %>%
  group_by(ID) %>%
  mutate(diff = endtime - lag(starttime),diff_num=num-lag(num))%>%filter(diff<=24)%>%
  filter(diff_num<=1)

rainningpoet 发表于 2018-11-18 02:23
some thing like this :
  
  library(dplyr)

万分感谢！！