基于tmap实现同形状多列可选交互式地图的技术问询

Hey there! I totally get the frustration here—you want an interactive tmap with 8 toggleable layers that share the exact same geometry but use different data columns. Your first approach makes perfect logical sense, but since tmap’s interactive layer toggling is tied to individual tm_shape() calls (not multiple tm_fill()s on the same shape), it doesn’t work. And duplicating the dataset over and over is super inefficient, especially with 8 layers!

Let me show you a clean, scalable solution that avoids copying your data entirely:

Step 1: Define your target columns #

First, list out all the columns you want to turn into layers. This keeps your code flexible if you ever need to add or remove layers later:

# Replace with your actual column names
layer_columns <- c("COLUMN1", "COLUMN2", "COLUMN3", "COLUMN4", 
                   "COLUMN5", "COLUMN6", "COLUMN7", "COLUMN8")

Step 2: Build layers dynamically with lapply() #

Instead of writing out each tm_shape() + tm_fill() manually, use lapply() to generate all layers from your column list. Each layer will reference the original MAP_DATA but use a different column:

library(tmap)
tmap_mode("view")

# Start building the map
interactive_map <- tm_borders()  # Add borders once (since geometry is identical)

# Add all fill layers dynamically
interactive_map <- interactive_map + lapply(layer_columns, function(col) {
  tm_shape(MAP_DATA) + 
    tm_fill(col = col, title = col)  # Use column name as layer title for clarity
})

# Render the map
interactive_map

Optional: Add borders per layer (if needed) #

If you specifically want borders included with each toggleable layer (though it’s redundant here since geometry matches), you can move tm_borders() inside the lapply():

# Need purrr for reduce() - install with install.packages("purrr") if missing
library(purrr)

interactive_map <- lapply(layer_columns, function(col) {
  tm_shape(MAP_DATA) + 
    tm_fill(col = col, title = col) +
    tm_borders()
}) %>% 
  reduce(`+`)  # Combine all layers into one map

interactive_map

This approach keeps your code DRY (Don’t Repeat Yourself) and scales effortlessly—no more copying datasets or writing repetitive code!

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