r - 传单图例和调色板的对数刻度

Question

我正在使用 R 中的传单绘制 GIS 数据，并将绘制点的颜色设置为数据集中的一个值。数据值范围很广，区分值低端的颜色差异很重要，但区分较高值也很重要。为了获得我正在寻找的效果，我需要能够使用对数刻度来确定点的颜色和图例刻度。

下面的代码给出了一个数据示例以及我现在绘制它的方式，但我不知道如何对颜色和图例使用对数刻度。

# Some fake data
df <- sp::SpatialPointsDataFrame(
  cbind(
    (runif(100) - .5) * 10 - 90.620130,  # lng
    (runif(100) - .5) * 3.8 + 25.638077  # lat
  ),
  data.frame(testData = rexp(100, rate = 5) * 1000)
)

# Fomulate a colour palette
pal <- colorNumeric(
  palette = "YlGnBu",
  domain = df$testData
)

leaflet(df) %>% addTiles() %>%
  # Add circle markers coloured by the testData
  addCircleMarkers(fillColor = ~pal(testData), fillOpacity = 0.7, radius=6, stroke=FALSE) %>%
  # Add the legend
  addLegend("bottomright", pal = pal, values = ~testData,
    title = "Test Result",
    opacity = 1
)

谁能建议我如何做到这一点？

标签： rleafletcolor-palette