在此处输入图像描述我正在尝试制作一个闪亮的应用程序,显示华盛顿州贝灵厄姆周围公共果树的位置。当用户单击树位置时,我希望他们能够看到给定树的所有属性,例如状态(已确认/未确认)和纬度/经度坐标。然而,当我创建交互式地图时,我只能看到用于对点进行颜色编码的属性,在本例中为物种。 tmap 图例使物种变得明显,我希望在单击某个点时能够看到状态(已确认/未确认)和纬度/经度坐标。
这是我使用 rshiny 创建一个简单的交互式地图应用程序的代码。我加载了必要的包。
library(dplyr)
library(shiny)
library(leaflet)
library(tmap)
library(sf)
我创建了数据框。
dat <- data.frame(lat = c(48.7323,48.7308,
48.7301,48.7276,
48.7246,48.7323,
48.7211),
long = c(-122.4928,-122.4940,
-122.4942,-122.4939,
-122.4958,-122.4975,
-122.4946),
species = c("Apple", "Apple",
"Pear", "Plum",
"Fig", "Plum",
"Pear"),
status = c("Confirmed", "Unconfirmed", "Confirmed", "Confirmed", "Confimed", "Unconfirmed", "Confirmed"))
# created ui and server components
ui <- fluidPage( mainPanel(
tmapOutput(outputId = "tmapMap"),
)
)
server <- function(input, output, session) {
output$tmapMap <- renderTmap({
# converted to spatial points df
dat2plot <- st_as_sf(dat2plot, coords = c("long","lat"), crs=st_crs("EPSG:4326"))
# and plotted map
map1 <- tm_shape(dat2plot) +
tm_dots(col= "species", alpha=0.8,size = 0.1) +
tm_legend(show = TRUE) +
tm_view(set.zoom.limits = c(14,16))
map1
})
}
shinyApp(ui = ui, server = server)
所附图片是返回的内容。
这似乎是一个错误,因为它仅在您通过
col
定义单一颜色时才有效。如果您按如下方式调整相应的行,您至少会看到所有属性,但不会出现颜色编码:
# converted to spatial points df
dat2plot <- st_as_sf(dat, coords = c("long","lat"), crs = st_crs("EPSG:4326"), remove = FALSE) %>%
relocate(species, .before = lat)
# and plotted map
map1 <- tm_shape(dat2plot) +
tm_dots(col= "blue", alpha = 0.8, size = 0.1) +
tm_legend(show = TRUE) +
tm_view(set.zoom.limits = c(14,16))
map1
您可以使用
popup.vars
的 tm_dots
参数控制显示的字段,包括当您使用颜色来表示变量时。这需要 TRUE/FALSE 来绘制所有/无变量,或您想要显示的变量的字符向量。
#data per mgrunds' answer
dat2plot <- st_as_sf(dat, coords = c("long","lat"), crs=st_crs("EPSG:4326"), remove = FALSE) %>%
relocate(species, .before = lat) # species as the first col to show that when hovering over a point
#simple plot
tm_shape(dat2plot) +
tm_dots(col= "species", alpha=0.8,size = 0.1,
popup.vars = c("status", "lat", "long")) #character vector of desired variables
它还允许重命名弹出窗口中的变量:
tm_shape(dat2plot) +
tm_dots(col= "species", alpha=0.8,size = 0.1,
popup.vars = c("Status" = "status",
"lat", "long"))