如何在R语言Leaflet地图的多边形弹窗中添加多行表格？

直接通过自定义HTML内容就能解决PopupTable()仅支持单行表格的限制——Leaflet的弹窗原生支持HTML格式，我们可以手动构建多行表格的HTML代码，实现灵活的弹窗效果，具体示例如下：

步骤1：加载依赖包与准备数据 #

library(leaflet)
library(dplyr)
library(purrr)
library(sf)
library(stringr)

以美国各州空间数据为例，模拟每个州对应的多行人口数据：

# 生成每个州的多行人口统计数据
state_pop_data <- tibble(
  state = state.name,
  pop_table = map(state, ~tibble(
    年份 = c(2010, 2015, 2020),
    人口 = round(rnorm(3, mean = 5000000, sd = 2000000))
  ))
)

# 合并空间数据与表格数据
states_sf <- maps::map("state", fill = TRUE, plot = FALSE) %>% 
  st_as_sf() %>% 
  mutate(state = str_to_title(ID)) %>% 
  left_join(state_pop_data, by = "state")

步骤2：编写函数生成HTML多行表格 #

自定义函数将数据框转为带样式的HTML表格字符串，可根据需求调整样式（比如边框、背景色）：

make_multiline_popup <- function(df) {
  # 构建表头标签
  header_tags <- paste0("<th>", colnames(df), "</th>", collapse = "")
  header <- paste0("<tr>", header_tags, "</tr>")
  
  # 构建表体每行的标签
  row_tags <- apply(df, 1, function(row) {
    paste0("<td>", row, "</td>", collapse = "") %>% 
      paste0("<tr>", ., "</tr>")
  }) %>% paste(collapse = "")
  
  # 拼接完整的表格HTML代码
  table_html <- paste0(
    "<table style='border-collapse: collapse; border: 1px solid #ccc;'>",
    "<thead style='background: #f0f0f0;'>", header, "</thead>",
    "<tbody>", row_tags, "</tbody>",
    "</table>"
  )
  
  return(table_html)
}

# 为每个多边形生成对应的弹窗内容
states_sf <- states_sf %>% 
  mutate(popup_content = map_chr(pop_table, make_multiline_popup))

步骤3：绘制地图并绑定弹窗 #

leaflet(states_sf) %>% 
  addTiles() %>% 
  addPolygons(
    popup = ~popup_content,
    fillOpacity = 0.7,
    color = "#333"
  )

补充说明 #

• 该方法支持任意行数、列数的表格，完全摆脱PopupTable()的单行限制
• 可通过修改HTML的style属性自定义表格样式，比如调整字体大小、边框粗细、背景色
• 如果需要更复杂的HTML结构，也可以结合htmltools包的标签函数构建，代码可读性更强

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