geom_mosaic: X轴记号标签不显示？

library(ggplot2)
library(ggmosaic)

# 示例数据
data <- data.frame(
  x = c("A", "B", "A", "B"),
  y = c("X", "X", "Y", "Y"),
  z = c(1, 2, 3, 4)
)

# 绘制马赛克图，并关闭裁剪
ggplot(data) +
  geom_mosaic(aes(x = product(x, y), fill = z)) +
  theme(axis.text.x = element_text(angle = 90)) +
  coord_fixed() +
  theme(plot.margin = unit(c(1, 1, 1, 1), "cm")) +
  theme(plot.background = element_rect(fill = "white", color = NA),
        panel.background = element_rect(fill = "white", color = NA),
        strip.background = element_rect(fill = "white", color = NA),
        legend.background = element_rect(fill = "white", color = NA),
        legend.key = element_rect(fill = "white", color = NA),
        panel.grid = element_blank(),
        axis.line = element_line(color = "black"),
        axis.ticks = element_line(color = "black"),
        axis.text = element_text(color = "black"),
        strip.text = element_text(color = "black"),
        legend.title = element_text(color = "black"),
        legend.text = element_text(color = "black"),
        plot.title = element_text(color = "black", hjust = 0.5),
        plot.subtitle = element_text(color = "black", hjust = 0.5),
        plot.caption = element_text(color = "black", hjust = 1)) +
  theme(legend.position = "none") +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1))

# 检查并移除缺失值
data <- na.omit(data)

theme(axis.text.x = element_text(color = "black"))