r - 为什么 cross() 不能正常工作？

Question

我正在尝试了解如何使用该across()功能来进行replace _if, replace_at变体。但我不明白为什么这段代码不起作用。我已经检查了“colwise”小插图，但没有多大帮助。

hmeq <- read.csv("http://www.creditriskanalytics.net/uploads/1/9/5/1/19511601/hmeq.csv", 
sep = ",", 
header = TRUE)

replace_na_mean <- function(x){
  mean <- mean(x, na.rm = TRUE)
  x[is.na(x)] <- mean
  return(x)
}

hmeq %>% mutate(across(where(is.numeric), replace_na_mean)) #1
hmeq %>% mutate_if(is.numeric, replace_na_mean) %>% head() %>% DT::datatable()#2

#1 输出基本上是原始数据帧，没有任何修改，就好像代码没有做任何事情一样。

#2 正在工作，但我正在尝试用mutate()and替换它across()：

Answer 1

工作across正常

library(dplyr) # version - 1.0.1
out <- hmeq %>%
       mutate(across(where(is.numeric), replace_na_mean)) 

out %>%
     filter(BAD == 1, LOAN == 1500) %>% 
     pull(MORTDUE)
  #[1] 13500.00 73760.82