在R中创建具有有序因子和每个条形图的单独标签的分组条形图

install.packages("ggplot2")
library(ggplot2)

df <- data.frame(
  x = factor(c("A", "B", "C", "A", "B", "C")),
  y = factor(c("X", "X", "X", "Y", "Y", "Y")),
  value = c(10, 15, 8, 12, 9, 6)
)

p <- ggplot(df, aes(x = x, y = value, fill = y)) +
  geom_bar(stat = "identity", position = "dodge")

p <- p + facet_wrap(~ y, nrow = 1)

p <- p + scale_x_discrete(limits = c("A", "B", "C")) +
  scale_fill_manual(values = c("X" = "blue", "Y" = "red"))

print(p)