1

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

基本上：

我希望填充颜色是介于darkblue和之间的blue值的渐变。150

我希望填充颜色是介于lightblue和之间的yellow值的渐变。50100

等等...

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

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

4

1 回答 1

3

您可以使用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 包（v2.0.1）于 2021 年 10 月 13 日创建

作为一个小提示：在您的描述中，不清楚 50 应该是什么颜色：在一个渐变中，它应该是蓝色，而在另一个渐变中，它应该是浅蓝色。充其量，您可以将其中一种颜色（比如说蓝色）设置为 50，并使用 50 + 一个微小的偏移量（例如.Machine$double.eps）来实现淡蓝色的中断。

于 2021-10-13T14:49:17.167 回答