如何在 ggplot2 中合并连续变量的图例？

Question

我正在尝试制作美国各县的等值线地图。我的值范围很大，并且高度膨胀为 0，因此我想为图例和着色创建自定义箱。理想情况下，这将使用 ggplot。我还想为图例保留一个标准结构，以便我可以将相同的图例用于具有不同数据的多个等值线。

图例可能是 0、1-20、21-50、51-150、151-300、301-800，每个“bin”的颜色来自光谱或其他一些连续的调色板。

scale_color_steps()、scale_fill_brewer() 和其他类似功能，即使使用breaks 和limits or n.breaks，似乎也不起作用。有什么想法吗？

library(choroplethr)
library(choroplethrMaps)
library(ggplot2)
data(county.regions)

df <- tibble(region = county.regions$region, value = c(rep(0,2000), rep(1,1000), sample(2:800, 143)))  

county_choropleth(df) +
  scale_colour_steps(palette='Spectral', n.breaks = 8)

Answer 1

实现所需结果的简单解决方案是将num_colors = 1 设置为country_choropleth。

来自country_choropleth的docs：

num_colors 在地图上使用的颜色数。值 0 使用发散比例（用于可视化负数和正数），值 1 使用连续比例（用于可视化异常值），而 [2, 9] 中的值将使用那么多分位数。

默认情况下num_colors = 7 这意味着连续数据被离散化，因此添加连续填充比例会引发Error: Binned scales only support continuous data. 设置num_colors = 1 数据不会被分箱，我们可以应用 自定义连续填充比例：

library(choroplethr)
library(choroplethrMaps)
library(ggplot2)
data(county.regions)

set.seed(42)

df <- tibble::tibble(region = county.regions$region, value = runif(3143, 0, 800))  

breaks <- c(0, 20, 50, 150, 300, 800)

county_choropleth(df, num_colors = 1) +
  scale_fill_stepsn(colors = RColorBrewer::brewer.pal(5, "Spectral"), breaks = breaks)

county_choropleth(df, num_colors = 1) +
  scale_fill_viridis_b(breaks = breaks)