如何在R中制作具有组和多个变量的条形图

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(
  Group = c("A", "A", "B", "B", "C", "C"), 
  Variable1 = c(10, 15, 8, 12, 9, 13), 
  Variable2 = c(5, 7, 6, 9, 10, 8)
)

ggplot(data, aes(x = Group, y = Variable1, fill = Group)) +
  geom_col(position = "dodge") +
  labs(title = "Bar Chart with Groups and Multiple Variables", 
       x = "Group", 
       y = "Variable 1") +
  theme_minimal()

ggplot(data, aes(x = Group, fill = Group)) +
  geom_col(aes(y = Variable1), position = "dodge", width = 0.4) +
  geom_col(aes(y = Variable2), position = "dodge", width = 0.4) +
  labs(title = "Bar Chart with Groups and Multiple Variables", 
       x = "Group", 
       y = "Value") +
  theme_minimal()