R 如何使用断点指定自定义颜色渐变

Question

我正在尝试在 R 中创建一个自定义渐变比例，它将根据值改变颜色。

基本上：

我希望填充颜色是 和 之间的渐变darkblue，并且blue介于1和之间的值50。

我希望填充颜色是 和 之间的渐变lightblue，并且yellow介于50和之间的值100。

等等...

我已经尝试过下面的代码，但这显然是错误的方法：

scale_fill_gradientn(limits = c(0,50),colours=c("darkblue","blue"),na.value="#101010") +
scale_fill_gradientn(limits = c(50,100),colours=c("lightblue","yellow"),na.value="#101010") +
scale_fill_gradientn(limits = c(100,1000),colours=c("orange","orangered"),na.value="#101010") +
scale_fill_gradientn(limits = c(1000,10000),colours=c("darkred","red"),na.value="#101010") + 
scale_fill_gradientn(limits = c(10000,30000),colours=c("red","#FF877D"),na.value="#101010") + 

有人可以帮我吗？

编辑：

使用此代码：

scale_fill_gradientn(
  limits  = range(0,max(da$val)),
  colours = colours[c(1, seq_along(colours), length(colours))],
  values  = c(0, scales::rescale(colour_breaks, from = range(0,da$val)),range(0,da$val))) + 

我得到这样的效果：

这与我想要的很接近，但我并不真正理解重新缩放代码及其作用。

我希望它从蓝色开始，然后使用中断变为红色。

已经很接近了——只是从黄色开始。

编辑：

在@teunbrand 的帮助下，我成功了！

这是代码：

my_limits <- range(c(0, usa.dat[,50:ncol(usa.dat)]))
max_value <- max(usa.dat[, 50:ncol(usa.dat)])

for (i in 2:ncol(usa.dat)) {
  da <- data.frame(fips=usa.dat$countyFIPS,val=usa.dat[,i])
  tot <- sum(da$val)
  colour_breaks <- c(0,1,100,500,1000,10000,30000)
  colours <- c("#101010","blue","lightblue","yellow","red","darkred","magenta")
  
  current_max <- max(da$val)
  relative_max <- max_value / current_max
  
  theDate <- substr(names(usa.dat)[i],2,100)
  plot_usmap(regions = "counties",
             data=da,
             values="val"
  ) + 
  labs(title=paste("Covid-19 Deaths - ",str_replace_all(theDate,"\\.","/")," - Total: ",tot,sep='')) +
  scale_fill_gradientn(limits  = range(0, current_max),
                       colours = colours,
                       values = scales::rescale(colour_breaks, to = c(0, relative_max), from = c(0, max_value)),
                       name="Deaths",na.value="#101010") + 
  theme(panel.background = element_rect(color = "#101010", fill = "#101010"))
  ggsave(paste(sprintf("%03d",i),".png",sep=''))

结果：https://www.youtube.com/watch?v =HZcnhUr6ghw

编辑：岩浆调色板：https://www.youtube.com/watch?v =QrgYIl_xqUU

编辑2：3D版本：https://youtu.be/Lk7E8o6VIQY

Answer 1

values您可以使用比例参数来设置特定颜色所在的确切点。在下面的示例中，我们需要"darkblue"10、20"lightblue"和"yellow"30。

唯一的问题是该values参数适用于 0 到 1 之间的重新缩放值，因此我们应该修复限制并对中断应用相同的重新缩放。

最后，由于现在 10-30 范围之外的值未定义，因此最好在（重新调整的）值 0 和 1 处重复极端的颜色。

library(ggplot2)

colour_breaks <- c(10, 20, 30)
colours <- c("darkblue", "lightblue", "yellow")

ggplot(mpg, aes(displ, hwy, colour = cty)) +
  geom_point() +
  scale_colour_gradientn(
    limits  = range(mpg$cty),
    colours = colours[c(1, seq_along(colours), length(colours))],
    values  = c(0, scales::rescale(colour_breaks, from = range(mpg$cty)), 1),
  )

^{由reprex 包于 2021 年 10 月 13 日创建(v2.0.1)}

需要注意的是：在您的描述中，不清楚 50 时的颜色应该是什么：在一个渐变中它应该是蓝色，在另一个渐变中它应该是浅蓝色。最好的情况是，您可以将其中一种颜色（假设为蓝色）设置为 50，并使用 50 + 微小的偏移量（例如.Machine$double.eps）作为浅蓝色中断。