如何标记血糖连续三次大于10的病人？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教大家，我有一连串病人血糖的数据，ID是病人编号，Glucose是血糖值。我想筛选出出现连续三次血糖值大于10的病人标记为1，否则标记为0，这该如何实现？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何实现 血糖值

大概是这样，没试对不对，你可以参考
flag <- matrix(c(unique(DATA$ID), NA), nrow = length(unique(DATA$ID)), ncol = 2)
for (id in unique(DATA$ID)) {
for (seq.G in 1:3) {
if (DATA[seq.G:(seq.G+3), "Gluoose"] > 10) flag[id,1:2] <- c(id, 1)
else flag[id,1:2] <- c(id, 0)
}
}

我也有个思路：
Flag <- df %>% group_by(ID) %>% slice(1) #这是为了把所有ID提取出来
Flagdf <- df %>% mutate(second=lead(Glucose)) %>% mutate(third=lead(second)) %>% na.omit() %>% filter(Glucose>=10,second>=10, third>=10) %>% mutate(flag_1 = 1) %>% merge(Flag, ., by="ID",all.x=T) %>% mutate(flag=ifelse(flag_1==1,1,0))

Ericabc 发表于 2018-5-27 10:14
大概是这样，没试对不对，你可以参考
flag  10) flag

嗯嗯，万分感谢。

zerofung 发表于 2018-5-27 22:49
我也有个思路：
Flag % group_by(ID) %>% slice(1) #这是为了把所有ID提取出来
Flagdf % mutate(second=l ...

嗯嗯，谢谢。已解决！