maps::map() 返回地区名称而不是国家名称答案

【问题标题】：maps::map() returning region names instead of country namesmaps::map() 返回地区名称而不是国家名称
【发布时间】：2020-06-17 10:46:23
【问题描述】：

我正在尝试在显示国家名称和数字的传单地图上为每个国家/地区创建一个弹出窗口。我在堆栈交换here 中遇到了类似的问题。

country <- c("Austria", "Germany", "Slovakia", "Hungary", "Croatia")
# Wanted only five countries
bounds <- map("world", country, fill = TRUE, plot = FALSE)
bounds$value <- c(300, 4, 8, 1, 8)

# Producing leaflet map
leaflet() %>%
      addProviderTiles("OpenStreetMap.Mapnik") %>%
      addPolygons(data = bounds, group = "Countries", 
                  color = "red", 
                  weight = 2,
                  popup = paste("Country: ", bounds$names, "<br>",
                                "Value: ",bounds$value, "<br>"),
                  fillOpacity = 0.1,
                  highlightOptions = highlightOptions(color = "black", 
                                                      weight = 2,
                                                      bringToFront = TRUE))

生成地图后，弹出窗口显示错误的数字，然后我继续查看 bounds$names 的外观，我看到国家/地区的前五个名称如下：

“奥地利”“德国：乌泽多姆”“德国：费马恩”“德国：鲁根”“德国：4”

地图本身仍在显示我想要的国家/地区的弹出窗口，包括奥地利、德国、匈牙利、斯洛伐克和克罗地亚，但只是数字错误。我不知道为什么map() 为德国生产城市，尽管country[1:5] 的前五个国家是“奥地利”“德国”“斯洛伐克”“匈牙利”“克罗地亚”

如何阻止map() 给我城市而不是我想要的所有国家。如果有人知道更简单的方法，我会很高兴知道。

【问题讨论】：

您能否提供部分数据（使用dput()）以便重现问题？
我在问题中提供了一些虚假数据。

标签： r leaflet maps

【解决方案1】：

在maps::map()的调用中添加参数exact = TRUE，这样就解决了问题。

library(leaflet)

country <- c("Austria", "Germany", "Slovakia", "Hungary", "Croatia")

bounds <- maps::map("world", country, fill = TRUE, plot = FALSE, exact = TRUE)

bounds$value <- c(300, 4, 8, 1, 8)

leaflet() %>%
  addProviderTiles("OpenStreetMap.Mapnik") %>%
  addPolygons(data = bounds, 
              group = "Countries", 
              color = "red", 
              weight = 2,
              popup = paste("Country: ", bounds$names, "<br>",
                            "Value: ", bounds$value, "<br>"),
              fillOpacity = 0.1,
              highlightOptions = highlightOptions(color = "black", 
                                                  weight = 2,
                                                  bringToFront = TRUE))

另外创建 HTML 标签并在将它们传递给 leaflet 之前对其进行检查可能有助于发现问题...

【讨论】：