ggplot代码单独运行正常，for循环批量绘图异常求助

你遇到的问题其实是ggplot的延迟求值特性加上循环内变量处理不当导致的，咱们一步步拆解问题并给出修复方案：

核心问题分析 #

1. ggplot延迟求值陷阱：ggplot在构建图形对象时，不会立即计算变量（比如你的i）的当前值，而是等到你实际渲染图形时才去查找变量的最新值。原来的for循环中，所有生成的ggplot对象都共享同一个i变量，当循环结束后i已经变成了3，所以所有图都会误用第3个数据框的参数。
2. 颜色向量长度不匹配：你原来的slice_colors_i只生成了一个长度为1的颜色值，ggplot会自动重复这个颜色给所有切片，导致所有切片颜色一致，不符合你“仅AA对应切片为红色”的预期。
3. 标签逻辑错误：原来的my_label_i是单个字符串，geom_text会尝试把这个标签应用到所有切片上，导致显示混乱。

修复后的for循环代码 #

我们用local()创建局部环境来捕获当前循环的索引，同时修正颜色和标签的生成逻辑：

library(dplyr)
library(ggplot2)

# 示例数据集（你的原代码不变）
df1 <- data.frame(colA=c("AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ"), colB=sample(1:100,10), colC=1:10, colD=c(22,13,13,5,4,4,3,2,2,2), colE=c("1.AA","2.AB","3.AC","4.AD","5.AE","6.AF","7.AG","8.AH","9.AI","10.AJ"))
df2 <- data.frame(colA=c("BA","AA","AC","AD","AE","AF","AG","AH","AI","AJ"), colB=sample(1:100,10), colC=1:10, colD=c(13,11,8,8,6,4,4,3,2,2), colE=c("1.BA","2.AA","3.AC","4.AD","5.AE","6.AF","7.AG","8.AH","9.AI","10.AJ"))
df3 <- data.frame(colA=c("CA","CB","AC","AD","AA","AF","AG","AH","AI","AJ"), colB=sample(1:100,10), colC=1:10, colD=c(13,11,8,8,6,4,4,3,2,2), colE=c("1.CA","2.CB","3.AC","4.AD","5.AA","6.AF","7.AG","8.AH","9.AI","10.AJ"))
toy_top_list <- list(df1, df2, df3)
names(toy_top_list) <- c("a","b","c")

# 修复后的批量绘图代码
toy_pie_list <- vector(mode = "list",length=length(toy_top_list))
names(toy_pie_list) <- names(toy_top_list)

for(i in seq_along(toy_top_list)){
  # 用local包裹创建局部环境，捕获当前循环的i值
  toy_pie_list[[i]] <- local({
    idx <- i
    current_df <- toy_top_list[[idx]]
    # 为每个切片生成对应颜色：AA行设为红色，其余为灰色
    slice_colors <- ifelse(current_df$colA == "AA", "red", "grey")
    # 生成标签向量：仅AA行显示百分比，其余为空
    my_label <- ifelse(current_df$colA == "AA", paste(current_df$colD, "%", sep = ""), "")
    plot_title <- names(toy_top_list)[idx]
    
    ggplot(current_df, aes(x="", y=colD, fill=colE, width=1)) + 
      geom_col(col="white", width = 2) + 
      scale_fill_manual(values=slice_colors, name="colA") + 
      geom_text(aes(x=1.3, label=my_label), position=position_stack(vjust=0.5), 
                col="white", fontface="bold") + 
      ggtitle(plot_title) + 
      theme(axis.title=element_blank(), axis.ticks = element_blank(), 
            axis.text = element_blank(), panel.grid=element_blank(), 
            panel.background = element_rect(fill = "white"), 
            plot.margin = unit(c(3,1,3,1), "pt")) + 
      coord_polar("y", direction = -1)
  })
}

# 查看生成的饼图
toy_pie_list$a
toy_pie_list$b
toy_pie_list$c

更简洁的替代方案：用purrr::imap #

如果你习惯使用tidyverse工具，purrr::imap可以更优雅地处理列表遍历，同时避免延迟求值问题：

library(purrr)
library(ggplot2)

toy_pie_list <- imap(toy_top_list, function(current_df, plot_title) {
  slice_colors <- ifelse(current_df$colA == "AA", "red", "grey")
  my_label <- ifelse(current_df$colA == "AA", paste(current_df$colD, "%", sep = ""), "")
  
  ggplot(current_df, aes(x="", y=colD, fill=colE, width=1)) + 
    geom_col(col="white", width = 2) + 
    scale_fill_manual(values=slice_colors, name="colA") + 
    geom_text(aes(x=1.3, label=my_label), position=position_stack(vjust=0.5), 
              col="white", fontface="bold") + 
    ggtitle(plot_title) + 
    theme(axis.title=element_blank(), axis.ticks = element_blank(), 
          axis.text = element_blank(), panel.grid=element_blank(), 
          panel.background = element_rect(fill = "white"), 
          plot.margin = unit(c(3,1,3,1), "pt")) + 
    coord_polar("y", direction = -1)
})

# 查看结果
toy_pie_list$a

imap会同时遍历列表的元素和元素名称，直接拿到每个数据框和对应的标题，代码更简洁，也不需要手动处理索引问题。

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