r - 无法在 addCircleMarkers 中设置颜色参数

Question

我拿不到传单 addCircleMarkers函数将数据映射颜色应用于标记。

铌。我生成了 fn.palette使用 colorRampPalette .它工作正常，在映射数据向量 x 时为从绿色 > 黄色 > 红色的颜色生成十六进制代码.输出向量 colours看起来像(“#00FF00FF”“#FFD200FF”“#7FFF00FF”“#FFFF00FF”...)。

如果我设置 color到我的十六进制代码向量:

map %>%
    addCircleMarkers(lon, lat, color = colours, radius = 2, weight = 0,
                     fill = TRUE, fillOpacity = 0.5, opacity = 0.6)

它只绘制黑色标记。

如果我使用 leaflet::pal功能:

pal <- colorNumeric(palette = fn.palette, domain = x)
map %>% addCircleMarkers(lon, lat, color = pal(x), radius = radius, 
                         stroke = FALSE, fillOpacity = 1)

它给

Warning message: In seq.int(0, 1, length.out = n) : first element used of 'length.out' argument

并且只绘制黑色标记。

使用 color = ~pal(x)而不是 color = pal(x) (如 https://rstudio.github.io/leaflet 中的示例)抛出

Error in UseMethod("metaData") : no applicable method for 'metaData' applied to an object of class "NULL"

我已经没有想法了。

Answer 1

这是在 R 中使用彩色圆圈标记制作传单 map 的可重复示例。

library(leaflet)
library(viridisLite)

# get domain of numeric data
(domain <- range(quakes$depth))

# make palette
pal <- colorNumeric(palette = viridis(100), domain = domain)

# make map
leaflet(quakes) %>% 
  addTiles() %>% 
  addCircleMarkers(color = ~pal(depth))  

一些提示:

1) 使用 colorNumeric 制作调色板时(假设您有想要映射的数字数据)确保 domain参数是可以映射的可能值。

For colorNumeric and colorBin, this can be a simple numeric range (e.g. c(0, 100))

这里我先计算了 quakes$depth的范围.

2) 请确保使用语法 color = ~pal(depth)在 addCircleMarkers
3) 还要确保 ~pal() 的参数是您希望调色板映射到的数据中的数值变量。