您可以使用ggplot2调整单个堆叠条形图的宽度吗？

library(ggplot2)

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

# 创建堆叠条形图
ggplot(data, aes(x = category)) +
  geom_bar(aes(y = value1, fill = "Value 1"), stat = "identity", width = 0.5) +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity", width = 0.3) +
  scale_fill_manual(values = c("Value 1" = "blue", "Value 2" = "red")) +
  labs(title = "Stacked Bar Chart", x = "Category", y = "Value")