我正在使用 tmap 包来可视化地图中的一些值。 有谁知道在交互式地图的弹出框中集成超链接的方法？
我所做的是使用下面的代码。我确实看到了所需的 URL，但无法单击它。
然后我在字符串中添加了< A HREF="URL">name< / A >。但这并不能使它起作用。
tmap_mode("view")
tm_shape(dataset) +
tm_bubbles(size = 1, col = "value1", palette = "-RdBu", popup.vars = c("value2","URL"), text = "value3")
如果能帮我发现这是否可行，我将不胜感激。
【问题讨论】：
tmap 弹出窗口，包括使用HTML 和URL 链接。
在发布 {tmap}（2021 年 3 月）的 3.3-1 之前，您对 tmap 中的弹出窗口的控制较少。从那以后世界发生了变化，您可能认为此答案已弃用 - 直接使用 {leaflet} 仍然有效，但它不再是使超链接在弹出窗口中有效的唯一方法。
有关纯 {tmap} 工作流程的示例，请参阅我的新答案。
通过包leaflet直接使用leaflet库要容易得多。
我首先将弹出窗口的文本作为 HTML 粘贴在一起，然后在 leaflet::addCircleMarkers() 调用中将其用作弹出参数（波浪号很重要）。
leaflet 中的圆形标记非常像 tmap 气泡，可以调整为看起来比这更精细；为了代码简洁起见，我将重点放在主要主题上，即交互式地图的弹出气球中的可自定义超链接。
library(dplyr) # for mutate & pipe
library(tmap) # for the metro dataset
library(leaflet) # interface to leaflet
data("metro") # from the tmap package
metro %>%
mutate(label = paste("marvel at ", name, " and follow <a href = https://stackoverflow.com/>stack overflow</a>")) %>%
leaflet() %>%
addTiles(group = "OSM") %>%
addCircleMarkers(popup = ~label)
【讨论】：
tmap 中的弹出窗口：stackoverflow.com/a/42180837/13478749。除了在 tmap 中包含不会自动链接到 URL 的链接之外，我想说在 tmap 中控制纯文本弹出窗口与传单一样容易。
{tmap} 背后的好人投入了如此多的时间和精力来改进软件包。
详细说明我之前的答案 - 在撰写本文时有效，但不再是：{tmap} 包最近获得了抑制弹出窗口中 HTML 代码清理的选项（在版本 3.3-1 ，于 2021 年 3 月 5 日发布）。
因此，对于当前的{tmap}，有可能在弹出窗口中包含 HTML 代码，并且我之前写过的对文本格式的控制在这里。
对于可能的实现，请考虑以下代码：
library(dplyr) # for mutate & pipe
library(tmap) # for the metro dataset
data("metro") # from the tmap package
metro <- metro %>%
mutate(label = paste("marvel at ", name, " and follow <a href = https://stackoverflow.com/>stack overflow</a>"))
tmap_mode("view")
tm_shape(metro) +
tm_bubbles(size = 1, col = "red",
popup.vars = c("label"),
popup.format = list(html.escape = F)) +
tm_basemap(leaflet::providers$Stamen.Watercolor)
【讨论】：