replace_na与tidyselect？

Question

假设我有一组列的数据框架，在这些列中，我想做相同的NA替换：

dd <- data.frame(x = c(NA, LETTERS[1:4]), a = rep(NA_real_, 5), b = c(1:4, NA))

例如，在上面的数据框架中，我想做一些(比如 replace_na(dd, where(is.numeric), 0) )来替换列a和b中的NA值。

我可以

num_cols <- purrr::map_lgl(dd, is.numeric)
r <- as.list(setNames(rep(0, sum(num_cols)), names(dd)[num_cols]))
replace_na(dd, r)

但我在找更整洁的/更地道的/更好的.

Answer 1

如果我们需要动态地使用replace处理where(is.numeric)，可以将它封装在across中

library(dplyr)
library(tidyr)
dd %>%
   mutate(across(where(is.numeric), replace_na, 0))

或者我们可以将replace指定为键/值对的list

replace_na(dd, list(a = 0, b = 0))

可以通过select以编程方式创建属于numeric的列，获取names，转换为带有deframe的键/值对(或在0中使用summarise，然后使用replace_na )

library(tibble)
dd %>% 
  select(where(is.numeric)) %>%
  summarise(across(everything(), ~ 0)) %>%
  replace_na(dd, .)