R语言for循环绘制柱状图问题：仅最后一张图正常显示求助

你的代码存在两个核心问题，导致只有最后一张图正常显示：

• 文本标签固定死：geom_text里硬编码了Warmtevraag_TJ作为标签来源，循环到Aantal bedrijven列时，标签数据完全不匹配。
• ggplot延迟求值特性：循环中的动态变量p不会立即解析，所有生成的图会共享最后一次循环的p值，导致前面的图y轴数据错误。

修正后的代码 #

# 提取需要绘图的目标列名
plot_cols <- names(Cluster6_sum %>% select(`Aantal bedrijven`, Warmtevraag_TJ))

# 循环生成图表，用local解决延迟求值问题
for (p in plot_cols) {
  local({
    current_col <- p
    # 为不同列设置差异化标题
    plot_title <- if (current_col == "Warmtevraag_TJ") {
      "Totale warmtevraag cluster 6 industrie per sector"
    } else {
      "Aantal bedrijven per sector in cluster 6"
    }
    
    Cluster6_plot <- ggplot(Cluster6_sum, aes(fill = Industrie, y = .data[[current_col]], x = Industrie)) + 
      geom_bar(position = "dodge", stat = "identity") +
      labs(title = plot_title, y = current_col) +  # 动态设置y轴标签
      theme(axis.text.x = element_text(size = 6)) +
      theme(legend.key.size = unit(0.5, 'cm')) +
      # 动态匹配当前列的文本标签
      geom_text(aes(label = round(.data[[current_col]])), 
                position = position_dodge(width = 0.9), 
                vjust = -0.25, size = 2.5)
    
    # 保存生成的图表对象
    assign(paste("plot", current_col, sep = "_"), Cluster6_plot)
  })
}

关键修改说明 #

• 用.data[[current_col]]替代get(p)：这是ggplot官方推荐的动态列引用方式，比get()更稳定，避免求值歧义。
• 包裹local()：强制每次循环创建局部变量current_col，确保每个ggplot对象捕获当前循环的列名，解决延迟求值问题。
• 动态设置标题与标签：让两张图的标题、y轴标签与对应数据匹配，便于区分。
• 文本标签动态化：geom_text的标签来源与当前y轴列同步，不再固定为某一列。

验证方式 #

运行代码后，分别调用plot_Aantal bedrijven和plot_Warmtevraag_TJ即可查看两张正常生成的柱状图。

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