我想用 Rstudio 中数字类型的列的中位数替换 NA 值

Question

这是我所做的，但是通过这个解决方案，我有了新的数据框，它只有数字列，但我想保留我的原始数据框。

data_without_na <- select_if(new_data,is.numeric)
data_without_na[] <- lapply(
  data_without_na,
  function(data_without_na) {
    data_without_na[is.na(data_without_na)] <- median(data_without_na, na.rm = TRUE)
    data_without_na
}) 

这就是我的代码，但我更愿意对原始数据框执行相同的操作。这个想法是获取数字数据类型的列的索引ind <- which(sapply(new_data, is.numeric)) 并获取列号以对我的原始数据框执行操作，但这给了我一个错误

Answer 1

模拟一个数据框：

d <- data.frame("char1" = sample(letters,100, replace = T),
                "char2" = sample(letters,100, replace = T),
                "numeric1" = sample(c(NA,seq(1,50,2.5)),100, replace = T),
                "numeric2" = sample(c(NA,seq(1,50,2.5)),100, replace = T))

d %>% 
  mutate_if(is.numeric, ~ifelse(is.na(.x),median(.x, na.rm = T),.x))

我们采用这个数据框并对所有数字列进行变异。 “~”定义了一个匿名函数，“.x”代表变量/列。