R语言geom_text条件标记与标签手动调整问题求助

针对你提出的三个需求，我们可以通过提前预处理数据+ggplot的条件映射来高效解决，修改后的完整代码及说明如下：

修改后的完整代码 #

x <- LETTERS[1:11]
y <- c(9, 4, 6, 8, 5, 7, -9, -4, -6, -8, -5)
z <- seq(-1, 1, by = 0.2)

dat <- data.frame(x, y, z) %>%
  filter(x != "B") %>%
  mutate(
    # 生成类别列，替代嵌套ifelse更清晰
    category = case_when(
      z > 0.7 ~ "up",
      z < -0.6 ~ "down",
      TRUE ~ "stable"
    ),
    # 处理标签：仅up/down类显示，负数转为正数
    label_text = ifelse(category %in% c("up", "down"), paste0(abs(y), "%"), NA)
  )

dat %>%
  ggplot(aes(fct_reorder(x, y, .desc = T), y, fill = category)) +
  geom_col() +
  scale_fill_manual("Color", 
                    values = c("up" = "#5b3b71", 
                               "down" = "#9a4054", 
                               "stable" = "#b7c1bd")) +
  # 自动设置hjust：正数条形右侧，负数条形左侧
  geom_text(aes(label = label_text), hjust = ifelse(dat$y > 0, -1, 1)) +
  coord_flip() +
  theme_void()

需求对应实现说明 #

• 仅显示up/down类别标签：在数据预处理时，给stable类别的标签赋值为NA，ggplot的geom_text会自动忽略NA值，不渲染对应标签。
• 负数值标签转正数：使用abs(y)提取数值的绝对值，再拼接百分号，实现负号去除。
• 高效设置hjust：通过ifelse(dat$y > 0, -1, 1)自动判断：正数条形（y>0）对应hjust=-1（标签在条形右侧），负数条形（y<0）对应hjust=1（标签在条形左侧），无需手动逐个设置向量。

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