ggplot2中geom_line未随geom_bar排序同步，求解决方法

核心问题 #

你对geom_bar按分数排序后，仅改变了x轴的显示顺序，但geom_line仍基于原始数据的参与者分组逻辑连接点，没有同步排序后的x轴位置，导致线条和对应的数据点、条形图错位。

具体解决方法 #

方法1：提前在数据层定义排序规则（推荐） #

不在ggplot中临时排序，先给每个参与者分配固定的排序位置，确保所有图层都遵循同一顺序：

# 假设数据集包含participant（参与者）、time（online/offline）、score（分数）列
# 以offline时间点的分数为依据排序，生成排序序号
order_df <- your_data %>%
  filter(time == "offline") %>%
  arrange(score) %>%
  mutate(sort_rank = row_number())

# 把排序序号合并回原数据集
sorted_df <- your_data %>%
  left_join(order_df %>% select(participant, sort_rank), by = "participant")

# 绘图时用排序序号作为x轴，同时替换标签为参与者名称
ggplot(sorted_df, aes(x = sort_rank, y = score, group = participant)) +
  geom_bar(aes(fill = time), stat = "identity", position = position_dodge(width = 0.9)) +
  geom_dotplot(binaxis = "y", stackdir = "center", position = position_dodge(0.9)) +
  geom_line(color = "#333333") +
  scale_x_continuous(breaks = sorted_df$sort_rank, labels = sorted_df$participant) +
  labs(x = "参与者", y = "分数")

方法2：在ggplot中直接指定排序依据 #

如果不想提前处理数据，可在reorder中明确用固定维度的分数排序，同时确保group参数绑定参与者：

ggplot(your_data, aes(x = reorder(participant, score[time == "offline"]), y = score, group = participant)) +
  geom_bar(aes(fill = time), stat = "identity", position = position_dodge(width = 0.9)) +
  geom_dotplot(binaxis = "y", stackdir = "center", position = position_dodge(0.9)) +
  geom_line(color = "#333333") +
  labs(x = "参与者", y = "分数")

这里reorder(participant, score[time == "offline"])强制x轴按每个参与者offline的分数从低到高排列，group = participant让线条准确连接同一参与者的两个时间点。

关键注意点 #

• 必须设置group = participant，否则geom_line会按x轴顺序连接，而非按参与者分组。
• 若要基于平均分数排序，只需修改排序逻辑：比如在数据预处理时用group_by(participant) %>% mutate(avg_score = mean(score)) %>% arrange(avg_score)。

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