geom_bar或geom_col中的多个变量

library(ggplot2)

# 示例数据集
data <- data.frame(
  Category = rep(c("A", "B", "C"), each = 3),
  Variable = rep(c("X", "Y", "Z"), 3),
  Value = c(10, 15, 20, 25, 30, 35)
)

# 使用facet_wrap()
ggplot(data, aes(x = Category, y = Value)) +
  geom_bar(stat = "identity") +
  facet_wrap(~ Variable)

# 使用position_dodge()
ggplot(data, aes(x = Category, y = Value, fill = Variable)) +
  geom_bar(stat = "identity", position = position_dodge())

# 使用position_stack()
ggplot(data, aes(x = Category, y = Value, fill = Variable)) +
  geom_bar(stat = "identity", position = position_stack())

# 示例数据集
data <- data.frame(
  Category = rep(c("A", "B", "C"), each = 2),
  Variable = c("X", "Y", "X", "Y", "X", "Y"),
  Value = c(10, 15, 20, 25, 30, 35)
)

# 使用geom_col()
ggplot(data, aes(x = Category, y = Value, fill = Variable)) +
  geom_col(position = position_dodge())