如何解决结合shiny和tmap显示交互式地图
我有下面的数据框,我想为其创建一个区域分布图。我从 here 下载了德国 shapefile,现在我尝试使用 tmap 交互式版本通过闪亮的应用程序显示它。这可能吗?还有其他通过 Shiny 提供的交互式解决方案吗?
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)
解决方法
使用 tmapOutput
和 renderTmap
代替 plotOutput
和 renderPlot
。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。