R语言for循环批量生成ggplot图表报rep_len错误如何解决

你写的代码触发报错主要有两个核心问题：

• subset.data.frame 要求第一个参数传入完整数据框，你直接传入了逻辑判断的布尔向量，不符合函数参数要求
• ggplot的aes映射直接调用循环外部的向量test[,c(i)]，运行时环境识别混乱，且列索引的方式容错率极低

代码已经包含你要求的三个功能：自动过滤无效值、显示各组样本量、自动批量导出图片到工作目录

library(ggplot2)
library(dplyr)

# 预先定义有效值、因子水平，避免重复写
valid_levels <- c("sehr gering" , "gering", "mittel", "hoch", "sehr hoch")
all_levels <- c(valid_levels, "keine Angabe", "NA")

# 循环变量直接用列名，容错率更高
for (col in colnames(test)) {
  # 1. 单变量数据预处理：统一因子水平，过滤有效值
  col_data <- test %>% 
    select(all_of(col)) %>% 
    rename(var = 1) %>% 
    mutate(var = factor(var, levels = all_levels)) %>% 
    filter(var %in% valid_levels)
  
  # 跳过全是无效值的列，避免报错
  if(nrow(col_data) == 0) next
  
  # 2. 绘图逻辑
  p <- ggplot(col_data, aes(x = var)) +
    geom_bar(fill = "cornflowerblue", color = "black") +
    geom_text(aes(label = stat(count)), stat = "count", vjust = -.75) +
    labs(
      title = col, # 标题直接用变量名，方便区分
      subtitle = paste("n gesamt: ", nrow(col_data)), 
      x = col,
      y = "Häufigkeit"
    ) +
    scale_y_continuous(labels = scales::percent) +
    # 固定x轴水平顺序，避免因为没有值导致顺序错乱
    scale_x_discrete(drop = FALSE)
  
  # 打印到控制台（可选）
  print(p)
  
  # 3. 自动导出到工作目录，文件名用变量名，避免重复覆盖
  ggsave(
    filename = paste0("柱状图_", col, ".png"),
    plot = p,
    width = 8,
    height = 6,
    dpi = 300
  )
}

• 代码里加了全无效值列的跳过逻辑，你的测试数据里有两列全是NA，运行时会自动跳过不会报错
• 导出的图片命名规则为柱状图_变量名.png，你可以根据自己的需求修改文件名、尺寸、分辨率参数
• 110个变量的场景建议不要全部打印到控制台，可以把print(p)这行注释掉，只保留导出逻辑，运行效率更高

内容的提问来源于stack exchange，提问作者R.bitrary