R语言：使用其他数据框变量名绘制散点图无输出的问题排查

核心错误根源 #

你在构建var_df时犯了本质错误：用c(xaxis_var, yaxis_var)把两个向量合并成了一维向量，而非带xaxis_var和yaxis_var列的数据框。这直接导致后续代码无法正确读取变量对，循环根本无法执行。

两段代码的具体问题 #

第一段代码问题 #

1. 循环未执行：因为var_df是一维向量，nrow(var_df)返回NULL，循环次数为0，自然不会生成任何图形。
2. aes参数错误：print(var_df$xaxis_var[j])完全无意义，且var_df根本没有xaxis_var列，返回NULL，ggplot无法识别有效变量。
3. 未显式打印图形：ggplot在循环中创建的图形对象不会自动渲染，必须用print()显式输出。

第二段代码问题 #

1. 循环对象未定义：nrow(b)中的b从未定义，循环无法启动。
2. 列名引用错误：var_df$Predictors[i]和var_df$col[i]中的列名完全不存在，var_df里只有你原本想创建的xaxis_var和yaxis_var列。
3. 变量引用方式错误：aes(x_axis, y_axis)会把x_axis当成myDAT的列名，而非你存储的字符串对应的列，需要用动态引用方式。
4. 同样未显式打印图形：和第一段代码一样，ggplot对象需要print()才能显示。

修正后的完整代码 #

第一步：正确构建var_df #

xaxis_var <- c("Pred1", "Pred2", "Pred3")
yaxis_var <- c("Outcome2", "Outcome1", "Outcome2")
# 构建带列的数据框，stringsAsFactors=FALSE避免字符串转因子
var_df <- data.frame(xaxis_var, yaxis_var, stringsAsFactors = FALSE)

第二步：循环绘制散点图 #

使用.data[[col_name]]动态引用列名，并显式打印图形：

for (j in 1:nrow(var_df)) {
  # 获取当前循环的x、y轴变量名
  x_col <- var_df$xaxis_var[j]
  y_col <- var_df$yaxis_var[j]
  
  # 构建ggplot对象，用.data[[...]]引用字符串指定的列
  p <- ggplot(myDAT, aes(x = .data[[x_col]], y = .data[[y_col]])) +
    geom_point()
  
  # 显式打印图形
  print(p)
}

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