如何更改/指定超出渐变条限制的填充颜色?
how to change / specify fill color which exceeds the limits of a gradient bar?
在ggplot2/geom_tile中,超出限制如何更改填充颜色?
由于图像 Region_4/5 在 limis(1,11)
之外,因此填充颜色默认为灰色,如何将 'Region_4' 更改为 'darkblue','Region_5' 为 'black'。谢谢!
library(tidyverse)
library(RColorBrewer)
tile_data <- data.frame(category=letters[1:5],
region=paste0('region_',1:5),
sales=c(1,2,5,0.1,300))
tile_data %>% ggplot(aes(x=category,
y=region,
fill=sales))+
geom_tile()+
scale_fill_gradientn(limits=c(1,11),
colors=brewer.pal(12,'Spectral'))+
theme_minimal()
您可以尝试 scales::squish,定义限制,并将越界 (oob) 值放入 scalw 中:
p = tile_data %>% ggplot(aes(x=category,y=region,fill=sales))+ geom_tile()
p + scale_fill_gradientn(colors = brewer.pal(11,"Spectral"),
limit = c(1,11),oob=scales::squish)
如果你想保持渐变比例并且有两个额外的离散值用于上下限制,我认为最简单的方法是为“限制”和“限制”设置单独的填充比例值。这可以通过对数据子集单独调用 geom_tile 以及使用 {ggnewscale} 等包来完成。
我认为将离散的“禁区”放置在渐变色条的各个极端是有意义的。然后您需要三个 geom_tile
调用和三个 scale_fill
调用,并且您需要在每个 scale_fill
调用中指定指南顺序。然后您将需要调整图例边距,但让它看起来不错并不是什么大问题。
library(tidyverse)
library(RColorBrewer)
tile_data <- data.frame(
category = letters[1:5],
region = paste0("region_", 1:5),
sales = c(1, 2, 5, 0.1, 300)
)
ggplot(tile_data, aes(
x = category,
y = region,
fill = sales
)) +
geom_tile(data = filter(tile_data, sales <= 11 & sales >=1)) +
scale_fill_gradientn(NULL,
limits = c(1, 11),
colors = brewer.pal(11, "Spectral"),
guide = guide_colorbar(order = 2)
) +
ggnewscale::new_scale_fill() +
geom_tile(data = filter(tile_data, sales > 11), mapping = aes(fill = sales > 11)) +
scale_fill_manual("Sales", values = "black", labels = "> 11", guide = guide_legend(order = 1)) +
ggnewscale::new_scale_fill() +
geom_tile(data = filter(tile_data, sales < 1), mapping = aes(fill = sales < 1)) +
scale_fill_manual(NULL, values = "darkblue", labels = "< 1", guide = guide_legend(order = 3)) +
theme_minimal() +
theme(legend.spacing.y = unit(-6, "pt"),
legend.title = element_text(margin = margin(b = 10)))
由 reprex package (v2.0.1)
于 2021-11-22 创建
在ggplot2/geom_tile中,超出限制如何更改填充颜色?
由于图像 Region_4/5 在 limis(1,11)
之外,因此填充颜色默认为灰色,如何将 'Region_4' 更改为 'darkblue','Region_5' 为 'black'。谢谢!
library(tidyverse)
library(RColorBrewer)
tile_data <- data.frame(category=letters[1:5],
region=paste0('region_',1:5),
sales=c(1,2,5,0.1,300))
tile_data %>% ggplot(aes(x=category,
y=region,
fill=sales))+
geom_tile()+
scale_fill_gradientn(limits=c(1,11),
colors=brewer.pal(12,'Spectral'))+
theme_minimal()
您可以尝试 scales::squish,定义限制,并将越界 (oob) 值放入 scalw 中:
p = tile_data %>% ggplot(aes(x=category,y=region,fill=sales))+ geom_tile()
p + scale_fill_gradientn(colors = brewer.pal(11,"Spectral"),
limit = c(1,11),oob=scales::squish)
如果你想保持渐变比例并且有两个额外的离散值用于上下限制,我认为最简单的方法是为“限制”和“限制”设置单独的填充比例值。这可以通过对数据子集单独调用 geom_tile 以及使用 {ggnewscale} 等包来完成。
我认为将离散的“禁区”放置在渐变色条的各个极端是有意义的。然后您需要三个 geom_tile
调用和三个 scale_fill
调用,并且您需要在每个 scale_fill
调用中指定指南顺序。然后您将需要调整图例边距,但让它看起来不错并不是什么大问题。
library(tidyverse)
library(RColorBrewer)
tile_data <- data.frame(
category = letters[1:5],
region = paste0("region_", 1:5),
sales = c(1, 2, 5, 0.1, 300)
)
ggplot(tile_data, aes(
x = category,
y = region,
fill = sales
)) +
geom_tile(data = filter(tile_data, sales <= 11 & sales >=1)) +
scale_fill_gradientn(NULL,
limits = c(1, 11),
colors = brewer.pal(11, "Spectral"),
guide = guide_colorbar(order = 2)
) +
ggnewscale::new_scale_fill() +
geom_tile(data = filter(tile_data, sales > 11), mapping = aes(fill = sales > 11)) +
scale_fill_manual("Sales", values = "black", labels = "> 11", guide = guide_legend(order = 1)) +
ggnewscale::new_scale_fill() +
geom_tile(data = filter(tile_data, sales < 1), mapping = aes(fill = sales < 1)) +
scale_fill_manual(NULL, values = "darkblue", labels = "< 1", guide = guide_legend(order = 3)) +
theme_minimal() +
theme(legend.spacing.y = unit(-6, "pt"),
legend.title = element_text(margin = margin(b = 10)))
由 reprex package (v2.0.1)
于 2021-11-22 创建