如何用 dplyr 替换多列中的 NA

Question

我想使用当前的dplyr (1.0.2) 代码替换NA以列中v的值开头的列中的 s 。x

同样的问题在这里发布，但答案已过时。

我对一列没有问题：

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

^{由reprex 包(v0.3.0)于 2020 年 11 月 3 日创建}

但无法弄清楚如何让它跨多列工作。

以下是我尝试过的一些无济于事的事情：

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

^{由reprex 包(v0.3.0)于 2020 年 11 月 3 日创建}

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>.

^{由reprex 包(v0.3.0)于 2020 年 11 月 3 日创建}

感谢你的帮助。

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)))

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