是否有一种方法可以替换R数据帧中多列中的NAs

# 安装并加载dplyr包
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)

# 创建一个示例数据帧
df <- data.frame(
  A = c(1, 2, NA, 4),
  B = c(NA, 2, 3, 4),
  C = c(1, NA, NA, 4)
)

# 使用mutate_all替换所有列的NA值为0
df <- df %>%
  mutate_all(~replace(., is.na(.), 0))

# 查看结果
print(df)

# 创建一个示例数据帧
df <- data.frame(
  A = c(1, 2, NA, 4),
  B = c(NA, 2, 3, 4),
  C = c(1, NA, NA, 4)
)

# 自定义函数来替换NA值
replace_na <- function(x, value) {
  replace(x, is.na(x), value)
}

# 使用apply函数应用自定义函数到数据帧的每一列
df[] <- lapply(df, replace_na, value = 0)

# 查看结果
print(df)

# 安装并加载tidyr包
if (!require("tidyr")) install.packages("tidyr")
library(tidyr)

# 创建一个示例数据帧
df <- data.frame(
  A = c(1, 2, NA, 4),
  B = c(NA, 2, 3, 4),
  C = c(1, NA, NA, 4)
)

# 使用fill函数按列填充NA值
df <- df %>%
  fill(A, B, C)

# 查看结果
print(df)

# 确保所有列的数据类型一致
df[] <- lapply(df, as.numeric)