ggbump绘图遇'StatBump'警告，如何替换X轴为指定字符标签？

核心问题原因 #

直接使用字符型变量作为X轴时，若未明确指定顺序，ggplot会默认按字符排序打乱X轴的逻辑顺序，同时stat_bump无法正确识别每个分组（country）的连续观测路径，从而触发警告并无法生成正确图表。而使用数值型X轴时，顺序明确，stat_bump能正常计算分组路径。

解决方案一：保留数值X轴，替换刻度标签（推荐） #

这种方法无需修改原始数据结构，直接通过scale_x_continuous替换X轴刻度为目标字符名称，既能保留正确的图表样式，又能显示所需标签：

修改后的完整代码 #

data <- data.frame(
  country = c(rep("ar", 5),
              rep("br", 5),
              rep("cl", 5),
              rep("co", 5),
              rep("cr", 5),
              rep("ec", 5),
              rep("gt", 5),
              rep("mx", 5),
              rep("py", 5),
              rep("pe", 5),
              rep("uy", 5)),
  names = c(rep(c(1, 2, 3, 4, 5), 11)),
  rank = c(1, 1, 1, 1, 1,
           2, 2, 2, 2, 2,
           5, 3, 5, 3, 4,
           6, 8, 7, 8, 7,
           9, 9, 10, 9, 8,
           8, 6, 6, 6, 5,
           10, 11, 11, 11, 9,
           4, 4, 3, 4, 3,
           3, 4, 4, 10, 10,
           11, 5, 8, 5, 6,
           7, 7, 9, 7, 11)
)

# 定义对应X轴数值的目标标签（保留换行符\n，ggplot会自动解析为换行）
x_labels <- c(
  "Masa\n promedio",
  "Masa\n total",
  "Cantidad\n promedio de\n instrumentos",
  "Cantidad\n total de\n instrumentos",
  "Cantidad\n de satélites\n lanzados"
)

ggplot(data, aes(names, rank, country = country, color = country)) +
  geom_bump(size = 0.25, linetype = "dashed") +
  geom_flag(size = 7) +
  theme_minimal() +
  guides(color = "none") +
  scale_y_reverse(breaks = 1:11) +
  # 替换X轴刻度标签
  scale_x_continuous(
    breaks = 1:5,  # 指定要显示的刻度位置（对应原始数值X）
    labels = x_labels,  # 替换为目标字符标签
    expand = c(0.05, 0)  # 可选：调整X轴两端留白，避免标签被截断
  ) +
  labs(x = "变量")  # 可选：设置X轴标题

解决方案二：将X轴变量转为有序因子 #

如果希望直接使用字符型X轴，可将names转为有序因子，明确指定顺序，确保stat_bump能正确识别分组的连续路径：

修改后的完整代码 #

# 定义X轴标签的正确顺序
x_levels <- c(
  "Masa\n promedio",
  "Masa\n total",
  "Cantidad\n promedio de\n instrumentos",
  "Cantidad\n total de\n instrumentos",
  "Cantidad\n de satélites\n lanzados"
)

data <- data.frame(
  country = c(rep("ar", 5),
              rep("br", 5),
              rep("cl", 5),
              rep("co", 5),
              rep("cr", 5),
              rep("ec", 5),
              rep("gt", 5),
              rep("mx", 5),
              rep("py", 5),
              rep("pe", 5),
              rep("uy", 5)),
  # 将names转为有序因子，指定levels确保顺序正确
  names = factor(rep(x_levels, 11), levels = x_levels),
  rank = c(1, 1, 1, 1, 1,
           2, 2, 2, 2, 2,
           5, 3, 5, 3, 4,
           6, 8, 7, 8, 7,
           9, 9, 10, 9, 8,
           8, 6, 6, 6, 5,
           10, 11, 11, 11, 9,
           4, 4, 3, 4, 3,
           3, 4, 4, 10, 10,
           11, 5, 8, 5, 6,
           7, 7, 9, 7, 11)
)

ggplot(data, aes(names, rank, country = country, color = country)) +
  geom_bump(size = 0.25, linetype = "dashed") +
  geom_flag(size = 7) +
  theme_minimal() +
  guides(color = "none") +
  scale_y_reverse(breaks = 1:11) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 可选：旋转X轴标签避免重叠

说明 #

• 两种方法都能解决警告问题并生成正确图表，第一种方法更简洁，无需修改原始数据；第二种方法适合需要直接操作字符型X轴的场景。
• 标签中的\n会被ggplot自动识别为换行，可根据需要调整标签排版。

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