如何在R语言的for循环中运行自定义地图绘制函数？

你的代码核心问题是将变量名以字符串形式存入my.continents，循环时传递的是字符串（比如"europeanUnion"）而非实际的国家名称向量，导致函数里的filter(name %in% continent.name)无法匹配到任何国家。此外还有几个可优化的细节，以下是修正后的完整方案：

1. 调整大陆国家的存储方式 #

用列表直接存储各大陆的国家向量，而非变量名字符串：

library(maps); library(ggplot2)
library(grid); library(sf)
library(dplyr); library(rnaturalearth)

# 定义各大陆国家向量
europeanUnion <- c("Austria","Belgium","Bulgaria","Croatia","Cyprus",
                   "Czech Rep.","Denmark","Estonia","Finland","France",
                   "Germany","Greece","Hungary","Ireland","Italy","Latvia",
                   "Lithuania","Luxembourg","Malta","Netherlands","Poland",
                   "Portugal","Romania","Slovakia","Slovenia","Spain",
                   "Sweden")

asian.countries <- c("Japan", "China","India", "Thailand", 
                     "South Korea", "North Korea", "Indonesia",
                     "Philippines", "Singapore", "Vietnam")

# 用列表存储各大陆的国家向量（关键修正）
my.continents <- list(
  european = europeanUnion,
  asian = asian.countries
)

2. 优化绘图函数 #

提前加载世界地图避免重复读取数据，同时修正图层逻辑：

# 提前加载世界地图，提升函数调用效率
world_map <- ne_countries(scale = 50, returnclass = 'sf')

my.functn <- function(country_list) {
  # 筛选目标国家
  my.map <- world_map %>% filter(name %in% country_list)
  
  ggplot() + 
    geom_sf(data = world_map, fill = 'white', alpha = .2) + # 半透明世界地图做背景
    geom_sf(data = my.map, fill = '#2c3e50') + # 高亮目标国家
    theme(
      panel.background = element_rect(fill = "#666666"),
      panel.grid.major = element_blank(), 
      panel.grid.minor = element_blank() 
    )
}

3. 循环批量生成地图 #

遍历列表生成并输出/保存地图：

# 循环批量生成地图
for(continent in names(my.continents)) {
  cat("正在生成", continent, "地区地图...\n")
  # 生成地图对象
  p <- my.functn(my.continents[[continent]])
  # 在RStudio中显示地图
  print(p)
  # 可选：将地图保存为本地图片
  ggsave(paste0(continent, "_map.png"), p, width = 8, height = 6)
}

关键修正说明 #

• 列表存储数据：my.continents作为列表直接存储国家向量，循环时通过my.continents[[continent]]获取实际数据，避免字符串匹配错误。
• 避免重复读取：将ne_countries调用移到函数外，减少重复IO操作。
• 图层逻辑修正：调整图层顺序，先画背景世界地图再高亮目标国家，解决原代码中重复绘制全图的问题。
• 显式输出与保存：用print()显示地图，ggsave()可选保存文件，确保批量生成的结果可查看。

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