R语言函数报错：按变量类型生成频数表/直方图失败求助

核心错误原因 #

1. 变量引用方式错误：代码中a$b[i]的写法不合法，$运算符只能直接跟列名字面量，无法通过变量（比如b[i]这种字符串）间接引用列。这导致你获取的是NULL，所以频数表为空，直方图也因传入NULL报错。
2. histogram函数依赖未明确：histogram()是lattice包的专属函数，未加载该包会直接报错；用base R的hist()兼容性更强，无需额外依赖。
3. 手动标记变量类型易出错：手动设置cat向量容易和实际变量类型不一致，应该自动识别变量类型，避免人为失误。

修复后的代码实现 #

1. 保留手动标记逻辑的修复版本 #

# 若坚持用lattice的histogram，先加载包
# library(lattice)

dataset_n <- names(dataset)

f_display <- function(a, b, c){
  for (i in 1:length(b)){
    current_col <- a[[b[i]]]  # 改用[[ ]]通过变量动态引用列
    if (as.integer(as.character(c[i])) == 1){  # 转换因子为整数后再比较
      cat("=== 分类变量", b[i], "频数表 ===\n")
      print(table(current_col))
    } else {
      cat("=== 连续变量", b[i], "直方图 ===\n")
      hist(current_col, main = paste("直方图：", b[i]), xlab = b[i])  # 用base R的hist
      # 若用lattice的histogram：
      # histogram(current_col, main = paste("直方图：", b[i]), xlab = b[i])
    }
  }
}

f_display(dataset, dataset_n, cat)

2. 更优实现：自动识别变量类型 #

无需手动标记cat向量，直接通过变量类型自动判断，更可靠且减少冗余：

f_auto_display <- function(df){
  for (col_name in names(df)){
    current_col <- df[[col_name]]
    if (is.factor(current_col) || is.character(current_col)){
      cat("=== 分类变量", col_name, "频数表 ===\n")
      print(table(current_col))
    } else if (is.numeric(current_col)){
      cat("=== 连续变量", col_name, "直方图 ===\n")
      hist(current_col, main = paste("直方图：", col_name), xlab = col_name)
    } else {
      cat("=== 变量", col_name, "类型不支持 ===\n")
    }
  }
}

# 直接调用即可，无需手动标记变量类型
f_auto_display(dataset)

关键修改点说明 #

• 动态列引用：用a[[b[i]]]替代a$b[i]，[[ ]]支持通过字符串变量引用数据框列，是动态调用列的标准写法。
• 因子类型转换：cat是因子类型，直接用c[i] == 1会出现类型不匹配问题，先转字符再转整数即可正常比较。
• 兼容性优化：改用base R的hist()避免依赖第三方包，若偏好lattice风格的可视化，记得先加载library(lattice)。
• 自动类型识别：通过is.factor()、is.numeric()等函数自动判断变量类型，彻底避免手动标记的错误。

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