r-将shine与tmap结合显示交互式地图

Question

我有下面的数据帧，我想为它创建一个choropleth映射。我从这里下载了德国shapefile，现在我正试图使用tmap交互式版本通过闪亮的应用程序显示它。这可能吗？有其他通过shine的交互式解决方案吗？

library(tidyverse)
library(sf)
library(shiny)
library(ggplot2)
library(tmap)
region<-c("09366", 
"94130", 
"02627", 
"95336", 
"08525", 
"92637", 
"95138", 
"74177", 
"08606", 
"94152" )

value<-c( 39.5, 
519.,  
5.67,
5.10,
5.08,
1165,  
342,  
775,  
3532,  
61.1 )
df<-data.frame(region,value)
ui <- fluidPage(
plotOutput("map")
)
server <- function(input, output) {
germany_sf <- sf::st_read(dsn = "plz-gebiete.shp") %>% 
left_join(df, by = c("plz" = "region"))
output$map<-renderPlot({
tmap_mode("view")

tm_shape(shp = germany_sf) + 
tm_polygons(col = "value", border.alpha = 0)
})  


}
shinyApp(ui, server)

Answer 1

使用tmapOutput和renderTmap而不是plotOutput和renderPlot。