使用facet_grid和因子设置柱填充色时，维持geom_col列顺序的方法问询

嗨，这个问题我太熟悉了！其实核心就是要让ggplot为每个戳刺次数类别下的两种状态（active/resting）都预留固定位置，哪怕某组没有数据也不能让柱子“乱跑”。下面是具体的解决思路和代码调整：

问题根源 #

你的原始数据里缺少了一些no.Pokes（戳刺次数）和Resting（状态）的组合（比如第一个分面里3次戳刺的active组），ggplot默认只会根据现有数据绘制柱子，所以就会把剩下的柱子挪到空白位置。要解决这个，我们需要先补全所有可能的组合。

解决步骤 #

1. 确保因子顺序正确（你说不想改变因子顺序，那先确认这一步已经做好了）：
   先把no.Pokes和Resting都转成因子，并且指定好Resting的顺序是active在前、resting在后，这样默认的填充顺序就是左active右resting：

   # 把戳刺次数转成因子，固定水平为1-4
   plot_summary.df$no.Pokes <- factor(plot_summary.df$no.Pokes, levels = 1:4)
   # 固定状态的顺序，确保active在左
   plot_summary.df$Resting <- factor(plot_summary.df$Resting, levels = c("active", "resting"))
   

2. 补全所有数据组合
   用tidyr::complete函数生成所有Round.no、no.Pokes、Resting的可能组合，缺失的百分比perc填0（这样会显示高度为0的柱子，或者填NA就会留空但位置保留）：

   library(tidyr)
   
   plot_summary_full.df <- plot_summary.df %>%
     complete(Round.no, no.Pokes, Resting, fill = list(perc = 0))
   

3. 用补全后的数据集画图
   现在每个戳刺次数下都有两种状态的记录，ggplot就会乖乖为它们预留位置了。另外注意facet_grid用vars()来指定分面变量更规范，避免直接引用数据框列名的潜在问题：

   plot <- ggplot(plot_summary_full.df, aes(x = no.Pokes, y = perc, fill = Resting)) +
     geom_col(position = position_dodge(width = 0.9)) + # width可以调整柱子间距
     facet_grid(rows = vars(Round.no)) +
     # 手动设置颜色，确保active是深灰，resting是浅灰
     scale_fill_manual(values = c("active" = "#333333", "resting" = "#cccccc"))
   

额外小技巧 #

如果你不想显示高度为0的柱子（只想留空白位置），可以把fill = list(perc = 0)改成fill = list(perc = NA)，这样对应的位置会空出来，但柱子的位置还是会保持固定的左右顺序，完全符合你的需求。

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