如果条件在另一个R中为true，则在新列中粘贴日期

Question

如果另一个变量中的条件为true，我想从一个变量提取日期。

示例：如果共病1==10，则从smr_01中提取日期，否则为NA

如果共病1==11或共病1==12，我也需要这样做，从smr_01中提取日期，否则NA

这就是我希望我的数据看起来像

comorbidity1  smr_01    NewDate
1             20120607  NA
10            20120607  20120607
10            20120613  20120613
3             20121103  NA
6             20150607  NA
12            20140509  NA
11            20120405  NA

我试过这个

fulldata$NewDate<-ifelse(fulldata$comorbidity1==10, fulldata$smr_01, NA)

但它没有以正确的格式粘贴日期。

我得到的看起来像这个

comorbidity1  smr_01    NewDate
1             20120607  NA
10            20120607  4675
10            20120613  17856
3             20121103  NA
6             20150607  NA
12            20140509  NA
11            20120405  NA

smr_01被归类为日期

谢谢

Answer 1

尝试：

df$NewDate <- as.Date(NA)
inds <- df$comorbidity1 == 10
#For more than 1 value use %in%
#inds <- df$comorbidity1 %in% 10:12
df$NewDate[inds] <- df$smr_01[inds]
df