我希望您的代码能够正常工作，但是您可以使用<b>代替<span style...>：

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

df <- df %>% 
  mutate(Predictor = ifelse(Signif==1,
                            glue("<b>{Predictor}</b>"),
                            Predictor))

df %>% 
  arrange(desc(Value)) %>% 
  mutate(Predictor=factor(Predictor, 
                          levels=df$Predictor[order(df$Value)])) %>%
  ggplot(aes(x=Predictor, y=Value)) +
  geom_segment(aes(xend=Predictor, yend=0)) +
  theme(axis.text.x = element_markdown())

问题是ggtext目前只支持有限的CSS属性集。
当前支持CSS属性color、font-size和font-family。
但是如果你只想用粗体文本，那么@zephryl的答案是可行的，或者作为第二种选择，使用markdown，即 Package 在**内：

library(ggplot2)
library(dplyr)
library(ggtext)
library(glue)

df <- df %>%
  mutate(Predictor = ifelse(Signif == 1,
    glue("**{Predictor}**"),
    Predictor
  ))

df %>%
  arrange(desc(Value)) %>%
  mutate(Predictor = factor(Predictor,
    levels = df$Predictor[order(df$Value)]
  )) %>%
  ggplot(aes(x = Predictor, y = Value)) +
  geom_segment(aes(xend = Predictor, yend = 0)) +
  theme(axis.text.x = element_markdown())

所有的答案都很好。然而更深层次的问题（不完全是）“隐藏”在当你在主题元素中使用矢量时出现的警告中（见下图）。
如果您首先重新排列数据框（并重新分配它！），那么您的原始绘图代码将工作-请参见下面的代码。我不鼓励这样做- ggtext：：element_markdown的设计正是为了避免在主题中使用向量。

library(tidyverse)

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

df <- arrange(df, Predictor)
df %>% 
  arrange(desc(Value)) %>% 
  mutate(Predictor=factor(Predictor, 
                          levels=df$Predictor[order(df$Value)])) %>%
  ggplot(aes(x=Predictor, y=Value)) +
  geom_segment(aes(xend=Predictor, yend=0)) +
  theme(axis.text.x = element_text(face = if_else(df$Signif==1, "bold", "plain"))) 
#> Warning: Vectorized input to `element_text()` is not officially supported.
#> ℹ Results may be unexpected or may change in future versions of ggplot2.

创建于2023年1月29日，使用reprex v2.0.2