如何将ggplot2图表X轴标签替换为数据框df1的lb列内容

需要将ggplot2生成的图表X轴标签替换为数据框df1中lb列的元素，现有代码如下：

df1 <- read.table(text =
                    "method1  9 0.2402482
                     method2  9 0.1023012
                     method3  8 0.2031448
                     method4 4 0.2654746
                     method5 9 0.4048711")

colnames(df1) <- c("Methods", "lb", "RMSE")

df1 |>
  dplyr::mutate(colour = forcats::fct_reorder(Methods, RMSE)) |>
  ggplot2::ggplot(ggplot2::aes(Methods, RMSE, colour = colour)) + 
  ggplot2::geom_point(size = 4) + 
  ggplot2::geom_segment(aes(Methods, xend = Methods, yend = RMSE, y = 0)) + 
  ggplot2::scale_color_manual(values = c("green", "yellowgreen", "yellow", "orange", "red")) + 
  ggplot2::theme_bw() + labs(color = "Method")

当前效果 #

X轴显示Methods列的文本标签：method1、method2、method3、method4、method5。

期望效果 #

X轴显示对应行的lb列数值：9、9、8、4、9（与排序后的类别一一对应）。

由于代码中用fct_reorder对Methods按RMSE做了排序，需要确保lb标签的顺序与排序后的类别匹配，避免错位。以下是修改后的完整代码：

df1 <- read.table(text =
                    "method1  9 0.2402482
                     method2  9 0.1023012
                     method3  8 0.2031448
                     method4 4 0.2654746
                     method5 9 0.4048711")

colnames(df1) <- c("Methods", "lb", "RMSE")

# 先完成排序，提取对应顺序的lb标签
df1 <- df1 |>
  dplyr::mutate(colour = forcats::fct_reorder(Methods, RMSE))
sorted_lb_labels <- df1$lb[order(df1$colour)]

df1 |>
  ggplot2::ggplot(ggplot2::aes(Methods, RMSE, colour = colour)) + 
  ggplot2::geom_point(size = 4) + 
  ggplot2::geom_segment(aes(xend = Methods, yend = RMSE, y = 0)) + 
  ggplot2::scale_color_manual(values = c("green", "yellowgreen", "yellow", "orange", "red")) + 
  # 指定X轴标签为排序后的lb数值
  ggplot2::scale_x_discrete(labels = sorted_lb_labels) +
  ggplot2::theme_bw() + 
  labs(color = "Method", x = "") # 若需要X轴标题，可替换为空字符串为自定义标题

关键修改说明 #

• 提前提取排序后的lb标签：通过order(df1$colour)获取排序后的索引，匹配对应lb值，保证标签与X轴类别顺序一致。
• 使用scale_x_discrete(labels = sorted_lb_labels)替换原本的X轴文本标签，实现需求效果。

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