如何在R语言的for循环与if语句中使用is.numeric或class判断列类型

问题根源 #

你遇到的核心问题是列的提取方式错误：

• iris[i]（单括号）返回的是单列数据框，而非向量，所以is.numeric()或class()判断的是数据框的类型，不是列内元素的类型。
• 而iris$Species是直接提取向量，因此能正确识别为factor类型。

修正后的代码 #

基础for循环版本 #

data("iris")
col_count <- ncol(iris)

for (i in 1:col_count) {
  current_col <- iris[[i]]  # 用双括号提取列对应的向量
  if (is.numeric(current_col)) {
    # 数值型列：计算均值、标准差等统计量
    cat("列", colnames(iris)[i], "的统计量：\n")
    cat("均值：", mean(current_col), "\n")
    cat("标准差：", sd(current_col), "\n\n")
  } else if (is.factor(current_col)) {
    # 因子型列：绘制条形图
    cat("正在绘制列", colnames(iris)[i], "的条形图...\n")
    barplot(table(current_col), main = colnames(iris)[i], xlab = "类别", ylab = "频数")
  }
}

进阶：用lapply替代for循环（更符合R语言风格） #

如果熟悉函数式编程，lapply可以更简洁地实现遍历逻辑：

data("iris")

lapply(iris, function(col) {
  col_name <- deparse(substitute(col))
  if (is.numeric(col)) {
    return(c(均值 = mean(col), 标准差 = sd(col)))
  } else if (is.factor(col)) {
    barplot(table(col), main = col_name, xlab = "类别", ylab = "频数")
  }
})

关键说明 #

• 用[[i]]提取列时，得到的是该列对应的向量，is.numeric()/is.factor()才能正确判断元素的实际类型。
• 借助colnames(iris)[i]或deparse(substitute(col))获取列名，能让输出和图表的可读性更强。

内容的提问来源于stack exchange，提问作者DaveR7