代码示例:
# 创建样本数据
set.seed(123)
df <- data.frame(A = rnorm(100),
B = rnorm(100),
C = rnorm(100, 1, 2),
D = rbinom(100, 1, 0.5))
# 编写函数
maxObsVar <- function(data){
maxObs <- 0
maxObsVar <- ""
for(var in names(data)){
obs <- sum(!is.na(data[[var]]))
if(obs > maxObs){
maxObs <- obs
maxObsVar <- var
}
}
return(maxObsVar)
}
# 测试函数
maxObsVar(df) # 输出"C",因为C变量有最大的观测值