如何解决为什么cross无法正常工作?
我正在尝试了解如何使用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()
和across()
:
解决方法
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。