如何在 R 中的梯度刻度中创建值间隙

Question

我目前正在创建一张美国地图，其中包含每个州内变量（“totalvisits”）计数的梯度。

有一个州的计数非常高（即，MA - 超过 8000），而其他所有州都小于 500。我是否可以在渐变比例中创建一个间隙，以便跳过 500 - 8000 之间的值。我还希望有一些东西可以更好地可视化较低值状态之间的差异，因为现在热图使它看起来它们都具有相同的值（下图）

这是我当前的代码：

statebins_US <- 
  statebins(state_data = patient_origin_bystate, state_col = "region", value_col = "totalvisits", dark_label = "black", light_label = "white", font_size = 3) + 
  theme_statebins(legend_position="right") + 
  scale_fill_gradientn(colours = rev(brewer.pal(10, "Spectral")), na.value = "gray78") 
 

当前热图 - 较低值的状态均具有相同的颜色

Answer 1

我不会回答你的问题，而是从另一个方向提出建议。如果您的值都是严格正数，我建议您改用对数转换。 （如果您的值包含负值或 0，您可以使用伪对数变换）

这是您的问题的简短模型，其中异常值很少。

library(ggplot2)

set.seed(0)
df <- expand.grid(LETTERS[1:6], LETTERS[1:6])
df$value <- rlnorm(nrow(df), meanlog = 6)

p <- ggplot(df, aes(Var1, Var2)) +
  geom_tile(aes(fill = value))

p + scale_fill_distiller(palette = "Spectral")

我的建议是使用对数转换的调色板，而不是不连续的调色板。在这种情况下，应该使用更多种类的调色板颜色。

p + scale_fill_distiller(palette = "Spectral", trans = "log10")

^{由 reprex 包 (v2.0.1)}