如何在ggplot与ggmap间切换并保留后续绘图代码？

问题原因 #

你的代码失效是因为R的运算符优先级规则：+的优先级高于if/else表达式。当执行mapsource == "gbm.basemap"分支时，大括号内的ggplot() + layer_spatial(...)会被单独执行并返回，后续的+ geom_stars(...) + ...无法正确绑定到这个ggplot对象上，相当于独立运行（自然不会生效）。而ggmap::ggmap(myMap)能正常工作，只是语法解析的巧合，并非正确的写法。

简洁解决方案 #

方案1：用括号包裹整个if/else表达式 #

把条件分支整体用括号括起来，让R将其视为单一表达式，后续的+就能正确绑定到返回的绘图对象上：

(if (mapsource == "gbm.basemap") {
  ggplot() +
    ggspatial::layer_spatial(shape, col = "black")
} else {
  ggmap::ggmap(myMap)
}) +
  stars::geom_stars(data = predabundstars |> sf::st_transform(3857), inherit.aes = FALSE) +
  # 后续填充、主题设置等代码
  scale_fill_viridis_c() +
  theme_minimal()

方案2：先初始化基础绘图对象 #

先通过条件语句创建基础绘图对象，再统一添加后续图层，可读性更强且逻辑清晰：

# 创建基础绘图对象
p <- if (mapsource == "gbm.basemap") {
  ggplot() +
    ggspatial::layer_spatial(shape, col = "black")
} else {
  ggmap::ggmap(myMap)
}

# 统一添加后续图层
p <- p +
  stars::geom_stars(data = predabundstars |> sf::st_transform(3857), inherit.aes = FALSE) +
  # 更多绘图代码示例
  labs(title = "用户数据地图") +
  theme_bw()

# 输出绘图
print(p)

方案说明 #

• 方案1通过括号提升if/else表达式的优先级，让后续+运算符能正确作用于条件返回的ggplot/ggmap对象。
• 方案2将基础对象创建与后续图层添加分离，完全规避了运算符优先级问题，也更方便后续代码维护。

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