r - 如何用 dplyr 替换多列中的 NA

Question

我想更换NA s 在以 v 开头的列中使用列 x 中的值使用电流 dplyr (1.0.2) 代码。
同样的问题已发布 here ，但 answer已经过时了。
我对一列没有问题:

suppressMessages(library(dplyr))
df <- data.frame(v1 = c(NA, 1, 2), v2 = c(3, NA, 4), v3 = c(5, 6, NA), x = c(7, 8, 9))
df %>% mutate(v1 = coalesce(v1, x))
#>   v1 v2 v3 x
#> 1  7  3  5 7
#> 2  1 NA  6 8
#> 3  2  4 NA 9

创建于 2020-11-03 由 reprex package (v0.3.0)
但无法弄清楚如何让它跨多列工作。
以下是我尝试过的一些无济于事的事情:

suppressMessages(library(dplyr))
df <- data.frame(v1 = c(NA, 1, 2), v2 = c(3, NA, 4), v3 = c(5, 6, NA), x = c(7, 8, 9))
df %>% mutate(across(starts_with("v")), . = coalesce(., x))
#> Error in list2(...): object 'x' not found

创建于 2020-11-03 由 reprex package (v0.3.0)

suppressMessages(library(dplyr))
df <- data.frame(v1 = c(NA, 1, 2), v2 = c(3, NA, 4), v3 = c(5, 6, NA), x = c(7, 8, 9))
df %>% mutate(across(starts_with("v")), . = coalesce(., df$x))
#> Error: Can't combine `..1` <data.frame> and `..2` <double>.

创建于 2020-11-03 由 reprex package (v0.3.0)
感谢你的帮助。

Answer 1

你和 across() 很亲近.你想要的方法是:

df %>%
  mutate(across(starts_with("v"), coalesce, x))

请注意 coalesce进入 across() ，以及 x ( coalesce() 的第二个参数可以作为第三个参数提供。结果:

  v1 v2 v3 x
1  7  3  5 7
2  1  8  6 8
3  2  4  9 9

如果您更喜欢使用 coalesce(., x) 更接近您的方法，您也可以将其作为匿名函数传递给 ~ :

df %>%
  mutate(across(starts_with("v"), ~ coalesce(., x)))

在其他情况下，这可以更灵活(例如，如果 . 不是函数的第一个参数)。