数据包含多列,有的列中包含na值,每列中na值的个数不等,需要保留列的原长度,将na替换为0
# 定义内层函数
)
my_ff <- function(x){
ifelse(is.na(x),return(0),return(x))
}
# 定义外层函数
my_f <- function(x)(
sapply(x,my_ff)
# 测试
## 数据集合algae 可以直接从 package ‘DMwR2’导入
sapply(algae$Chla,my_f)
algae %>% mutate(
across(4:18,my_f)
) -> dt
附:
打开表直接输入
x <- matrix()
data.entry(x)
从粘贴板直接输入
read.table(file = "clipboard")