停止条形图在ggplot中重叠

library(ggplot2)

# 示例数据
data <- data.frame(
  category = c("A", "B", "C"),
  value1 = c(10, 20, 30),
  value2 = c(15, 25, 35)
)

# 使用 position_dodge() 避免重叠
ggplot(data, aes(x = category, y = value1, fill = "Value 1")) +
  geom_bar(stat = "identity", position = position_dodge()) +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity", position = position_dodge()) +
  labs(fill = "Values")

# 使用 facet_wrap() 分面显示
ggplot(data, aes(x = category, y = value1, fill = "Value 1")) +
  geom_bar(stat = "identity") +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity") +
  facet_wrap(~ category)

# 调整坐标轴范围
ggplot(data, aes(x = category, y = value1, fill = "Value 1")) +
  geom_bar(stat = "identity") +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity") +
  ylim(0, max(data$value1, data$value2) * 1.1)