R:用日期列变量中的固定日期替换 NA(如果条件成立)

Question

如果给定条件成立，我想用固定日期替换给定列(日期格式)中的 NA 值。

在下面的示例中，如果条件 a==4 成立。我正在寻找最简单的方法，在 dplyr 或 data.table 中。

> df1 <- data.table(a = c(1, 2, 3, 4),
+                  dt = as.Date(c("2012-06-01", "2012-07-01", NA, NA)))
> df1
   a         dt
1: 1 2012-06-01
2: 2 2012-07-01
3: 3       <NA>
4: 4       <NA>

Answer 1

使用data.table

df1[a == 4 & is.na(dt), dt := as.Date("2012-07-01")]
       a         dt
   <num>     <Date>
1:     1 2012-06-01
2:     2 2012-07-01
3:     3       <NA>
4:     4 2012-07-01

为了完整性在 Base R 中:

df1[df1$a == 4 & is.na(df1$dt), "dt"] <- "2012-07-01"