如何在多面和分组的ggplot中着色条

Question

我制作了以下图表（我使用“npk”数据集作为虚拟数据，因为我无法共享原始数据 - 但图表的系统性保持不变）：

library(ggplot2)
library(scales)

ggplot(npk,aes(x=block,group=N)) + 
geom_bar(aes(y = ..prop..)) +
facet_grid(~ N) +
xlab("blocks") +
scale_y_continuous(labels = percent) +
theme(axis.text.x=element_blank(),axis.ticks.x=element_blank(),
     legend.title=element_blank())

区块：区块编号 1-6
N：二进制变量1/0

现在我想根据块的数量为每个条（=块）着色（我知道，这在这里没有多大意义，因为每个块（对于变量 N）的比例是一样，但是对于我的原始数据，我有不同的比例，所以这是有道理的......）。 除了面对情节我还必须使用“group=N”，因为我需要每个块的比例。

我该怎么做？我尝试了许多不同的方法来声明这些块的颜色，但不幸的是我无法为每个块着色，只能将所有块一起用灰色或其他特定颜色...

感谢您的帮助！非常感谢！ 玛蒂娜

Answer 1

这似乎确实是一件棘手的事情！将来自here 和here 的答案放在一起，您可以通过稍微调整它用于计算y 的方法来做到这一点，以便考虑按方面进行分组而不通过包含fill 覆盖group:

library(tidyverse)
library(scales)

ggplot(npk, aes(x = block)) +
  geom_bar(aes(
    y = ..count.. / tapply(..count.., ..PANEL.., sum)[..PANEL..],
    fill = block
  )) +
  facet_grid( ~ N) +
  xlab("blocks") +
  ylab("Percentage") +
  scale_y_continuous(labels = percent) +
  theme(
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    legend.title = element_blank()
  )

^{由reprex package (v2.0.0) 于 2021 年 10 月 25 日创建}

Answer 2

可以通过预先计算比例并使用 geom_col 代替 geom_bar 来解决问题吗？

library(tidyverse)

npk %>% 
  slice_sample(n = 15) %>% ## so that percentages vary
  group_by(block, N) %>% 
  count(name = "count") %>% 
  group_by(block) %>% 
  mutate(prop = count/sum(count)) %>% 
  ungroup() %>% 
  ggplot(aes(x=block,y=prop)) + 
  geom_col(aes(fill = block)) +
  facet_grid(~ N)

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