R Shiny 传单 addPolygons（颜色未显示）答案

【问题标题】：R Shiny leaflet addPolygons (colors are not showing)R Shiny 传单 addPolygons（颜色未显示）
【发布时间】：2016-08-31 18:16:08
【问题描述】：

我希望你能帮助我。我用 Leaflet 创建了一个等值线地图。我将我的（数据框与国家和随机分数）和 Shapefile 与多边形数据合并。到目前为止它正在工作，但是如果我在 R-Shiny 中实现它，地图会显示，但没有颜色。也没有错误显示。有谁知道为什么？

我的代码：

ui <- fluidPage(
  leafletOutput("map")
)


shinyServer(function(input, output) {

output$map <- renderLeaflet({
    test_map
  })
})

global.R

tmp <- tempdir()

url <- "http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip"

file <- basename(url)

download.file(url, file)

unzip(file, exdir = tmp)

world <- readOGR(dsn = tmp, layer = "ne_50m_admin_0_countries", encoding = "UTF-8")

data <- data.frame(Code = c("AR", "AU", "BE", "BR"),
             Score = c(0.01, -0.05, 0.15, -0.22))

world <- merge(world, data,
               by.x = "iso_a2",
               by.y = "Code",
               sort = FALSE)

pal <- colorNumeric(
  palette = "RdYlGn",
  domain = world$Score
)

test_map <- leaflet(data = world) %>%
            addTiles() %>% 
            addPolygons(fillColor = ~pal(Score), 
                        fillOpacity = 0.9, 
                        color = "#BDBDC3", 
                        weight = 1)

【问题讨论】：

有没有办法做到这一点reproducible？
嗨@alistaire，我添加了一些可重现的代码；）。提前致谢。
当我运行你的代码时，我看到三种颜色（阿根廷、巴西和澳大利亚）
@MLavoie 你是对的。那是一种奇怪的行为。当我单独运行此代码时，它就可以工作了。但是，如果我在整个代码中运行此代码，则不会显示颜色。似乎包的某些功能覆盖了一些传单功能？
似乎函数 addPolygons 被忽略了：/.

标签： r dictionary shiny leaflet choropleth

【解决方案1】：

我知道这是一个老问题，我不确定这是否会有所帮助，但我相信我有 a similar problem 给你，刚刚解决了。

在我的例子中，我在自己的 PC 上的 Rstudio 中显示多边形颜色没有问题，但某些 Web 浏览器和旧版本的 Rstudio 拒绝用颜色填充多边形，即使地图的所有其他方面都可以正常工作。

问题是我的调色板由一个带有 alpha 通道的十六进制代码向量组成（最后几个数字，指定透明度）。从十六进制代码中删除 alpha 通道解决了我的问题。可能值得检查您的颜色向量是否包含 alpha，如果是，则根据我自己的问题的答案（上面的链接）使用 gsub(".{2}$","",your_colour_vector) 之类的内容将其删除。

看起来您的颜色在示例代码中不包含 alpha，但可能是您的完整代码中的问题。这可以解释为什么示例代码有效但完整代码无效。无论如何可能是需要调查的东西？抱歉，我帮不上忙，我知道这只是在黑暗中尝试，而不是完整的解决方案。

【讨论】：