使用ggstatsplot包循环绘图报错：列var不存在

错误根源 #

你的代码报错核心原因有两个：

1. 循环变量var是列的数字索引，但ggstatsplot系列函数的x/y参数需要传入数据框中存在的列名（符号或字符串），直接传数字会被当作列名查找，自然找不到名为var的列。
2. 直接提取target_var为向量，函数无法从data=df的上下文匹配到对应的列，导致引用失败。

修正后的代码 #

library(ggstatsplot)

# 赋值数据集（确保dataset是你的实际数据集名称）
df <- dataset
# 目标变量用列名字符串存储，而非直接提取向量
target_col <- "Upselling"

# 遍历除目标列外的所有列
for (var_col in setdiff(colnames(df), target_col)) {
  # 获取当前列与目标列的类型
  var_type <- class(df[[var_col]])
  target_type <- class(df[[target_col]])
  
  # 根据变量类型匹配对应绘图函数
  if (var_type == "numeric" && target_type == "numeric") {
    p <- ggscatterstats(data = df, x = .data[[var_col]], y = .data[[target_col]])
  } else if ((var_type == "numeric" && target_type == "factor") || 
             (var_type == "factor" && target_type == "numeric")) {
    # ggbetweenstats要求x为因子、y为数值，需调整参数顺序
    p <- if (var_type == "factor") {
      ggbetweenstats(data = df, x = .data[[var_col]], y = .data[[target_col]])
    } else {
      ggbetweenstats(data = df, x = .data[[target_col]], y = .data[[var_col]])
    }
  } else if (var_type == "factor" && target_type == "factor") {
    p <- ggbarstats(data = df, x = .data[[var_col]], y = .data[[target_col]])
  }
  
  # 打印绘图结果
  print(p)
  # 可选：添加分隔标记，区分不同图表
  cat("\n--- 分割线 ---\n")
}

关键修正说明 #

• 遍历列名而非索引：用setdiff(colnames(df), target_col)获取除目标列外的所有列名，避免无效的索引引用，同时跳过目标列与自身的对比。
• 正确引用列：使用.data[[var_col]]的tidyverse风格引用方式，确保函数能识别字符串形式的列名。
• 适配函数参数要求：ggbetweenstats对变量类型有严格要求（x为分组因子，y为数值），因此根据变量类型动态调整x和y的位置，避免类型不匹配错误。
• 统一列引用逻辑：目标变量用列名字符串存储，确保函数始终从df中读取数据，保持上下文一致。

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