1

以下代码创建了一个偶数中断的图例。我该如何更改它，以便 0-1 的每个值都显示为白色，而 1-max 的值显示为 0.5 的中断，并显示渐变阴影？（换句话说，下面地图的唯一变化是所有值 0-1 都显示为白色）。

Mapview 似乎无法识别breaks。我能想到的唯一其他解决方案是拆分数据并制作两张地图，一张是SHAPE_LEN0-1 的值，另一张是SHAPE_LEN1-3.98 的值，然后将两张地图一起显示。这不是一个理想的解决方案，因为我必须显示 2 个图例。

谢谢！

library(leaflet)
library(mapview)
pink2 = colorRampPalette(c('white', 'deeppink'))

mapview(franconia, alpha.regions = 1, map.types = 'CartoDB.Positron',
    layer.name = 'Franconia', zcol = 'SHAPE_LEN',
    col.regions = pink2, at = seq(0, 4, .05))

在此处输入图像描述

4

1 回答 1

3

如果你不介意使用leaflet 包而不是mapview 包，你可以采取以下方法。您需要的是使用 colorRampPalette 创建自定义颜色。以您的方式，您只是在两种颜色之间插入了颜色空间。您实际上可以指定要创建多少种颜色。在这里，我创建了两个色彩空间。第一个仅用于白色，第二个用于白色和 deeppink2 之间的颜色空间。我结合了这两个颜色向量并创建了rampcols. 我用这个为传单创建了颜色。最后，我为你画了一张地图。我对mawview不熟悉。但是，如果您可以使用相同的方法，那可能是您的最佳方案。否则，这足以让您继续您的项目。

library(mapview)
library(leaflet)

# Make vector of colors for values between 0 and 1 (10 colors)
# You may have to change the number of colors depending on your situation.

rc1 <- colorRampPalette(colors = c("white", "white"), space = "Lab")(10)

# Make vector of colors for values between 1 and 4 (30 colors)
# You may have to change the number of colors depending on your situation.

rc2 <- colorRampPalette(colors = c("white", "deeppink2"), space = "Lab")(30)

# Combine the two color palettes
rampcols <- c(rc1, rc2)

mypal <- colorNumeric(palette = rampcols, domain = franconia$SHAPE_LEN

# Draw a map
leaflet() %>% 
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = franconia, group = "Franconia",
            stroke = FALSE, smoothFactor = 0.2, fillOpacity = 1,
            fillColor = ~mypal(franconia$SHAPE_LEN),
            popup = paste("Region: ", franconia$NAME_ASCI, "<br>",
                          "Value: ", franconia$SHAPE_LEN, "<br>")) %>%
addLayersControl(overlayGroups = "Franconia") %>%
addLegend(position = "bottomright", pal = mypal, values = franconia$SHAPE_LEN,
          title = "Franconia",
          opacity = 1)

在此处输入图像描述

于 2020-01-28T03:56:25.260 回答