有没有什么r代码可以使用facet wrap和ggplot来关闭直方图中的所有间隙？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = c(rep("A", 100), rep("B", 100), rep("C", 100)),
  y = rnorm(300)
)

# 使用facet_wrap和ggplot创建直方图，并关闭间隙
ggplot(data, aes(x = y)) +
  geom_histogram() +
  facet_wrap(~ x, ncol = 1, scales = "free") +
  theme(panel.spacing = unit(0, "lines"))