如何在ggplot中根据条件设置指定轴标签为粗体并正确排序

原方法的问题分析 #

• 方法一错误：生成带HTML标签的Predictor后，设置因子水平时用了未排序的原始数据集，且order(df$Value)是升序逻辑，和arrange(desc(Value))的降序要求矛盾，导致轴标签顺序与排序后的数据不匹配，最终格式无法正确渲染。
• 方法二错误：element_text的face参数直接调用原始数据集的Signif列，而排序后轴标签的顺序已改变，导致加粗的标签和实际需要的位置完全错位。

正确解决方案 #

方案一：使用ggtext实现带格式标签（支持复杂样式）

先按Value降序排序，再生成带HTML格式的标签，最后将标签设为对应顺序的因子：

library(tidyverse)
library(ggtext)
library(glue)

df <- tibble(Predictor = c("Blue","Red","Green","Yellow"),
             Value = c(1,3,2,4),
             Signif = c(0,1,0,1))

# 排序后生成带格式标签，再设置因子水平
df_sorted <- df %>% 
  arrange(desc(Value)) %>% 
  mutate(
    Predictor_label = ifelse(Signif == 1,
                             glue("<span style='font-weight:bold'>{Predictor}</span>"),
                             Predictor)
  ) %>% 
  mutate(Predictor_label = factor(Predictor_label, levels = .$Predictor_label))

ggplot(df_sorted, aes(x = Predictor_label, y = Value)) +
  geom_segment(aes(xend = Predictor_label, yend = 0)) +
  theme(axis.text.x = element_markdown())

方案二：使用element_text实现仅加粗需求（更简洁）

先排序并将Predictor设为对应顺序的因子，再提取排序后的Signif值生成加粗规则：

library(tidyverse)

df <- tibble(Predictor = c("Blue","Red","Green","Yellow"),
             Value = c(1,3,2,4),
             Signif = c(0,1,0,1))

df_sorted <- df %>% 
  arrange(desc(Value)) %>% 
  mutate(Predictor = factor(Predictor, levels = .$Predictor))

# 生成与排序后轴标签匹配的加粗规则
face_vec <- ifelse(df_sorted$Signif == 1, "bold", "plain")

ggplot(df_sorted, aes(x = Predictor, y = Value)) +
  geom_segment(aes(xend = Predictor, yend = 0)) +
  theme(axis.text.x = element_text(face = face_vec))

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