Leaflet地图添加饼图遇问题：addMinicharts卡顿且自定义性差

问题根源 #

Leaflet 原生设计以地理空间元素（标记、多边形、线条等）为核心，这类元素基于SVG/Canvas做轻量级渲染，由地图引擎统一管理，性能流畅。而饼图属于统计可视化元素，本质是独立的图表对象：

• addMinicharts 是通过在每个坐标点嵌入小型HTML/CSS绘制的图表，地图缩放、平移时会频繁重绘大量独立DOM元素，直接导致卡顿；
• 这类封装函数为保证通用性，会限制自定义选项，灵活性自然不足。

圆形标记（addCircleMarkers）是Leaflet原生支持的矢量元素，渲染逻辑完全整合在地图引擎里，这就是它比饼图实现更简便、性能更好的核心原因。

可行替代方案 #

方案1：预生成饼图图片，用自定义标记加载 #

提前用ggplot2生成饼图图片，再通过Leaflet自定义标记加载，能大幅降低渲染压力：

library(leaflet)
library(ggplot2)

# 生成单个饼图并保存为临时图片
generate_pie <- function(fel, le) {
  pie_data <- data.frame(
    category = c("fel", "le"),
    value = c(fel, le)
  )
  pie_plot <- ggplot(pie_data, aes(x = "", y = value, fill = category)) +
    geom_bar(stat = "identity", width = 1) +
    coord_polar("y", start = 0) +
    theme_void() +
    theme(legend.position = "none")
  temp_img <- tempfile(fileext = ".png")
  ggsave(temp_img, plot = pie_plot, width = 0.5, height = 0.5, dpi = 100)
  return(temp_img)
}

# 为数据集添加饼图路径
df$pie_img <- mapply(generate_pie, df$fel, df$le)

# 渲染地图
leaflet(df) %>%
  addTiles() %>%
  addMarkers(
    lat = ~lat, lng = ~lon,
    icon = makeIcon(
      iconUrl = ~pie_img,
      iconWidth = 40, iconHeight = 40
    )
  )

方案2：使用leaflet.extras2的addPieChart函数 #

这个扩展包专门优化了Leaflet上的饼图渲染，基于Canvas绘制，性能比addMinicharts更稳定，自定义选项也更丰富：

library(leaflet)
library(leaflet.extras2)

leaflet(df) %>%
  addTiles() %>%
  addPieChart(
    lat = ~lat, lng = ~lon,
    values = ~cbind(fel, le),
    radius = 30,
    color = c("#FF69B4", "#98FB98"),
    label = ~paste0("fel: ", fel, " | le: ", le)
  )

总结 #

饼图不属于Leaflet原生支持的地理空间元素，需要额外的渲染逻辑支撑，这就是它比圆形标记实现更复杂的根本原因。选择预生成图片或专用扩展包的方式，既能解决卡顿问题，也能提升自定义灵活性。

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