Question

我很难为我的2个不同的facet_grids获得不同的颜色。

以下是我的简单示例：

df <- data.frame(x = rep(1:20, each=20), y= rep(1:20, 20),
             val = sample(0:1,400, replace=TRUE),
             facet_grid = c(rep("A", 200), rep("B", 200)))
colors <- c(1,2)
ggplot(df, aes(x = x, y = y)) +
    geom_tile(aes(fill = val)) +
    facet_grid(. ~ facet_grid, scales = "free") +
    scale_fill_gradient(limits=c(0,1), low=brewer.pal(11, "RdYlGn")[colors][1],  
                        high="grey30")

我正在使用scale_fill_gradient函数和brewer.pal函数来覆盖使用的标准颜色。但是，我想要实现的是在两个不同的facet_grids中设置1应该使用相同颜色（grey30）的值。例如，对于第一个facet_grig中的值为0，应使用红色，并且应使用第二个facet_grid绿色。

有人能给我一个如何实现这个目标的提示吗？

我创建了另一个示例，现在更接近我想要但我不明白为什么scale_fill_identity不起作用。为此，我略微更改了数据框，以便该值现在有4个不同的值：

df <- data.frame(x = rep(1:20, each=20), y= rep(1:20, 20),
             val = c(sample(0:1,200, replace=TRUE), sample(2:3,200, replace=TRUE)),
         facet_grid = c(rep("A", 200), rep("B", 200)))

ggplot(df, aes(x = x, y = y)) +
    geom_tile(aes(fill = val)) +
    facet_grid(. ~ facet_grid, scales = "free")

ggplot(df, aes(x = x, y = y)) +
    geom_tile(aes(fill = val)) +
    facet_grid(. ~ facet_grid, scales = "free")

scale_fill_identity(labels=letters[1:4], breaks=c("red","blue","green","brown")) +

第一个ggplot给了我几乎我想要的东西。两种不同的facet_grids中有4种不同的颜色。我尝试使用scale_fill_identity更改4种颜色，但我在绘图中得到的是4种不同颜色的黑/白和红/绿，而不是上面指定的颜色。

Answer 1

试试这个

ggplot(df, aes(x = x, y = y),colour=val) +
  geom_tile(aes(fill = factor(val))) +
  facet_grid(. ~ facet_grid, scales = "free")+
  scale_fill_manual(labels=letters[1:4], values=c("red","blue","green","brown"))

不同的facet_grids的不同颜色

1 个答案: