gpt4 book ai didi

r - 强制 ggplot 图例在没有值时显示所有类别

转载 作者:行者123 更新时间:2023-12-02 04:40:53 34 4
gpt4 key购买 nike

<分区>

我试图强制 ggplot 显示图例并修复一个因子的颜色,即使范围内没有值也是如此。

在下面的可重现示例中,图 1 在变量 X1 的每个范围内至少有一个值,并根据需要绘制。每个图例标签都已绘制并与所需颜色相匹配。

在示例 2 中,变量 Y1 在创建的每个范围中都没有值。因此,该图仅显示前 4 个图例标签并使用前 4 种颜色。

有没有一种方法可以绘制此图,强制 ggplot 显示所有八个图例标签并固定颜色,以便 cat1 值始终为红色,cat2 值始终为蓝色等。

我已经尝试了所有我能想到的方法,但都没有成功。

-- 可重现的例子 --

set.seed(45678)
dat <- data.frame(Row = rep(x = LETTERS[1:5], times = 10),
Col = rep(x = LETTERS[1:10], each = 5),
Y = rnorm(n = 50, mean = 0, sd = 0.5),
X = rnorm(n = 50, mean = 0, sd = 2))

library(ggplot2)
library(RColorBrewer)
library(dplyr)

dat <- dat %>% mutate(Y1 = cut(Y, breaks = c(-Inf,-3:3,Inf)),
X1 = cut(X, breaks = c(-Inf,-3:3,Inf)))

# Figure 1
ggplot(data = dat, aes(x = Row, y = Col)) +
geom_tile(aes(fill = X1), color = "black") +
scale_fill_manual(values = c("red", "blue", "green", "purple", "pink", "yellow", "orange", "blue"),
labels = c("cat1", "cat2", "cat3", "cat4", "cat5", "cat6", "cat7", "cat8"))

# Figure 2
ggplot(data = dat, aes(x = Row, y = Col)) +
geom_tile(aes(fill = Y1), color = "black") +
scale_fill_manual(values = c("red", "blue", "green", "purple", "pink", "yellow", "orange", "blue"),
labels = c("cat1", "cat2", "cat3", "cat4", "cat5", "cat6", "cat7", "cat8"))

34 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com