如何在 R 中更改多個堆疊條形圖中的顏色？

您正在fillaes 上映射一個數字。因此，您將獲得一個連續的填充色標。如果您想通過在aesanswer上映射此列來填充您的條形圖。fill但由於此列也是數字，請將其轉換factor為scale_fill_manual：

library(ggplot2)

p <- ggplot(sample1, aes(y = proportion, x = group, fill = factor(answer))) +
  geom_bar(position = "stack", stat = "identity") +
  scale_fill_manual(values = c("#E7344E", "#0097BF", "#E7344E", "#0097BF", "#E7344E")) +
  facet_grid(~"") +
  theme_minimal()

p1 <- ggpubr::ggpar(p, xlab = F, ylab = F, legend = "", ticks = F)

p1 + geom_text(aes(label = proportion),
  position = position_stack(vjust = 0.5),
  check_overlap = T,
  colour = "white"
)

數據

sample1 <- structure(list(group = c(
  "first", "first", "first", "first",
  "first", "second", "second", "second", "second", "second", "third",
  "third", "third", "third", "third", "fourth", "fourth", "fourth",
  "fourth", "fourth"
), answer = c(
  1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L,
  4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L
), count = c(
  67L,
  119L, 6L, 116L, 45L, 102L, 197L, 10L, 232L, 55L, 49L, 143L, 1L,
  142L, 44L, 45L, 93L, 3L, 118L, 44L
), proportion = c(
  19, 33.7,
  1.7, 32.9, 12.7, 17.1, 33.1, 1.7, 38.9, 9.2, 12.9, 37.7, 0.3,
  37.5, 11.6, 14.9, 30.7, 1, 38.9, 14.5
)), class = "data.frame", row.names = c(
  NA,
  -20L
))