我有一个具有开始日期和结束日期的数据集。缺少某些结束日期。正如您在下面看到的，我尝试了三种不同的方法，但都没有奏效。
startDay <- as.Date(c("2015-01-01","2015-03-01","2016-07-15","2016-08-02"), "%Y-%m-%d")
endDay <- as.Date(c("2018-01-01",NA,"2018-03-05",NA), "%Y-%m-%d")
id <- 1:4
dt <- data.frame(id, startDay, endDay)
dt
str(dt)
dt$caseDay <- as.Date("2018-07-20", "%Y-%m-%d")
str(dt)
dt
这将我的变量的类从日期更改为数字：
dt$EndDay1 <-
ifelse(is.na(dt$endDay), dt$caseDay, dt$endDay)
str(dt)
dt
这会生成一条错误消息。
dt$EndDay2 <-as.Date(
ifelse(is.na(dt$endDay), dt$caseDay, dt$endDay), "%Y-%m-%d")
str(dt)
dt
如果我对相关帖子的研究/理解是正确的，下面的第 3 版应该可以解决问题。但是，这将所有内容都转换为缺失值。
dt$EndDay3 <-as.Date(as.character(
ifelse(is.na(dt$endDay), dt$caseDay, dt$endDay)), "%Y-%m-%d")
str(dt)
dt
关于如何解决这个问题的任何建议？谢谢