R语言Leaflet：能否为minicharts的饼图和条形图添加轮廓？

leaflet.minicharts包的addMinicharts函数本身没有直接提供设置饼图切片或条形图边框的参数，但可以通过以下两种方法实现需求：

方法1：通过htmlwidgets修改已渲染的图表元素 #

在地图渲染完成后，直接修改生成的SVG元素样式，给切片/条形添加边框：

library(leaflet)
library(leaflet.minicharts)
library(htmlwidgets)

data = data.frame(site = c("site1", "site2"), lat = c(42.6076, 43.7452), 
                  lon = c(-101.5471, -99.7837), factor1 = c(10,40), 
                  factor2 = c(50, 60))

# 创建基础地图与minicharts
map <- leaflet() %>% 
  addTiles() %>% 
  addMinicharts(data$lon, data$lat, type = "pie", colorPalette = c("blue", "red"), 
                width = 50, chartdata = data[,c(4:ncol(data))])

# 注入JS代码添加边框
map %>% onRender("
  function(el, x) {
    // 给饼图切片添加边框
    var piePaths = el.querySelectorAll('.minichart-pie path');
    piePaths.forEach(path => {
      path.setAttribute('stroke', '#000000'); // 边框颜色
      path.setAttribute('stroke-width', '2'); // 边框宽度
    });
    // 给条形图添加边框
    var barRects = el.querySelectorAll('.minichart-bar rect');
    barRects.forEach(rect => {
      rect.setAttribute('stroke', '#000000');
      rect.setAttribute('stroke-width', '1.5');
    });
  }
")

你可以根据需要修改stroke（边框颜色）和stroke-width（边框宽度）的参数值。

方法2：手动生成带边框的SVG图标，用addMarkers添加 #

如果需要更精细的样式控制，可通过ggplot2生成带边框的饼图SVG，再作为自定义图标添加到地图：

library(leaflet)
library(ggplot2)
library(svglite)

# 定义生成带边框饼图SVG的函数
create_pie_icon <- function(values, colors, border_color = "black", border_width = 2, size = 50) {
  pie_data <- data.frame(value = values, color = colors)
  # 生成带边框的饼图
  p <- ggplot(pie_data, aes(x = "", y = value, fill = color)) +
    geom_bar(stat = "identity", color = border_color, linewidth = border_width) +
    coord_polar("y", start = 0) +
    theme_void() +
    theme(legend.position = "none")
  # 保存为临时SVG
  temp_svg <- tempfile(fileext = ".svg")
  ggsave(temp_svg, plot = p, width = size/96, height = size/96, dpi = 96)
  # 创建leaflet图标
  icon <- makeIcon(
    iconUrl = temp_svg,
    iconWidth = size, iconHeight = size
  )
  return(icon)
}

# 准备数据
data = data.frame(site = c("site1", "site2"), lat = c(42.6076, 43.7452), 
                  lon = c(-101.5471, -99.7837), factor1 = c(10,40), 
                  factor2 = c(50, 60))

# 为每个站点生成带边框的饼图图标
data$icon <- lapply(1:nrow(data), function(i) {
  create_pie_icon(
    values = unlist(data[i, c(4:ncol(data))]),
    colors = c("blue", "red"),
    border_color = "black",
    border_width = 2,
    size = 50
  )
})

# 创建地图并添加自定义图标
leaflet(data) %>%
  addTiles() %>%
  addMarkers(~lon, ~lat, icon = ~icon)

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