我正在使用RStudio创建一个等值单张传单。 我将Country和Url作为我导入到R的shapefile中的属性。
我希望在最终地图的弹出窗口中显示国家/地区名称和URL作为超链接。
以下是我目前使用的代码:
m <- world_shapefiles %>%
leaflet() %>%
addProviderTiles(providers$Esri.WorldStreetMap) %>%
addPolygons(
label=~country,
labelOptions = labelOptions(style = list("font-weight" = "normal", padding = "3px 8px", textsize = "15px",
direction = "auto")),
popup = ~ paste("Country:", country, "<br/>","<b/>","URL:", url)
)
我希望看到文本“点击此处”而不是弹出窗口中的整个网址,我尝试使用下面的代码而没有运气。
popup = ~ paste("Country:", counry, "<br/>","<b/>","URL:", "<b><a href=url>Click Here</a></b>")
实现它的任何想法?
答案 0 :(得分:2)
阅读R, leaflet package, Passing a character vector of HTML tags to popups?后,您可以在此处修改现有代码:
# it seems ~ doesn't work inside of the paste0() function
# which is why I accessed the variables through the $
popup = paste0( "Country:"
, world_shapefiles$country
, "<br>"
, "<a href='"
, world_shapefiles$url
, "' target='_blank'>"
, "Click Here</a>"
)
我使用World Borders Data Set下载世界上每个国家/地区的shapefile。然后,我为数据集中的每个国家/地区添加Wikipedia网址。
# load necessary packages
library( leaflet )
library( sf )
# download zip file
download.file(
url = "http://thematicmapping.org/downloads/TM_WORLD_BORDERS-0.3.zip"
, destfile = "TM_WORLD_BORDERS-0.3.zip"
)
# unzip
unzip( zipfile = "TM_WORLD_BORDERS-0.3.zip" )
# transfrom to sf
world.borders <-
read_sf( dsn = getwd()
, layer = "TM_WORLD_BORDERS-0.3" )
# add the wikipedia page for each country
world.borders$wiki <-
paste0( "https://en.wikipedia.org/wiki/", world.borders$NAME )
# make leaflet map
my.map <-
leaflet( options = leafletOptions( minZoom = 2 ) ) %>%
setMaxBounds( lng1 = -180
, lat1 = -89.98155760646617
, lng2 = 180
, lat2 = 89.99346179538875 ) %>%
addTiles( urlTemplate = "https://server.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer/tile/{z}/{y}/{x}" ) %>%
addPolygons( data = world.borders
, fill = "#D24618"
, color = "#D24618"
, opacity = 0.5
, fillOpacity = 0.01
, weight = 3
, popup = paste0(
"<b>Country: </b>"
, world.borders$NAME
, "<br>"
, "<a href='"
, world.borders$wiki
, "' target='_blank'>"
, "Click Here to View Wiki</a>"
)
, label = ~NAME
, labelOptions = labelOptions(
style = list("font-weight" = "normal"
, padding = "3px 8px"
, textsize = "15px"
, direction = "auto" ) )
, highlightOptions = highlightOptions(
color = "#10539A"
, weight = 3
, fillColor = NA
))
# display map
my.map
# end of script #