使用ggforce::facet_row绘制分面直方图时的x轴刻度标记控制问题

我帮你梳理了下问题根源：你把数值型的score错误地用了离散型x轴刻度（scale_x_discrete()），这和ggforce::facet_row的自由缩放逻辑冲突，才会出现要么刻度消失、要么强制设置limits后破坏分面宽度适配的情况。下面给你两个针对性的解决方案：

方案1：保留数值型变量，用连续型刻度适配 #

这个方案适合需要保留score数值属性的场景，调整后既能显示完整x轴刻度，又能维持分面宽度自适应：

score <- rep(c(0,1,2,3,4,5,6,7,8), c(20424, 1636, 1864, 989, 397, 174, 69, 18, 4))
damage <- rep(c("No damage", "damage"), c(20424, 5151))
damage <- ordered(damage, c("No damage", "damage"))
df <- data.frame(score, damage)

library(ggplot2)
library(ggforce)

df %>% 
  ggplot(aes(x = score)) +
  # 添加boundary=0确保直方图bin从整数开始，避免偏移
  geom_histogram(binwidth = 1, boundary = 0, color = "white") +
  # 用连续型刻度指定断点和标签，替代离散型设置
  scale_x_continuous(name = "Score", breaks = 0:8, labels = 0:8) +
  scale_y_continuous(name = "") +
  ggforce::facet_row(vars(damage), scales = 'free', space = 'free')

关键调整说明： #

• 替换scale_x_discrete()为scale_x_continuous()：匹配score的数值型本质，同时通过breaks和labels明确指定要显示的刻度，效果和你之前设置limits一致，但不会干扰分面逻辑。
• geom_histogram添加boundary=0：保证每个直方图bin正好对齐一个整数score，避免出现偏移导致的显示异常。

方案2：将score转为分类变量，用柱状图实现 #

如果你的score更偏向分类属性（比如代表等级），可以先把它转成因子，用geom_bar()替代直方图，这样分面后刻度会自然显示：

# 先将score转为因子，指定水平顺序
df$score_factor <- factor(df$score, levels = 0:8)

df %>% 
  ggplot(aes(x = score_factor)) +
  geom_bar(color = "white") +
  scale_x_discrete(name = "Score") +
  scale_y_continuous(name = "") +
  ggforce::facet_row(vars(damage), scales = 'free', space = 'free')

优势： #

• 离散分类变量用geom_bar()更符合统计逻辑（直接计数），且x轴刻度不需要额外设置就能正常显示，分面宽度也能自适应。

两种方案都能解决你遇到的问题，你可以根据score的实际属性选择合适的方式~

内容的提问来源于stack exchange，提问作者Rhett