R语言 对于医学随访数据的处理 取同个id第一次随访日期和最后一次随访日期

代码：

a <- data %>% group_by(id) %>% mutate(

first_date=min(issue_date),last_date=max(issue_date),

First_date=ifelse(issue_date==first_date, 1, 0),

days_to_first_date=as.numeric(issue_date),

Last_date=ifelse(days_to_first_date==max(days_to_first_date),1,0)

)

df <- a[a$First_date==1 | a$Last_date==1,]