ggplot棒棒糖图：基于Var1条件实现双向文本标签的方法

很简单，你只需要根据Var1的条件动态设置标签的偏移量就行，不用局限于固定的nudge_x值。ggplot的几何图层支持接收向量参数，所以直接用条件判断生成对应的偏移方向就搞定了。

给你一个完整的示例代码参考：

library(ggplot2)

# 构造模拟数据
set.seed(123)
df <- data.frame(
  Category = paste0("Item_", 1:10),
  Var1 = runif(10, 0.5, 2) # 生成包含小于1和大于1的值
)

# 绘制棒棒糖图
ggplot(df, aes(x = Var1, y = Category)) +
  # 绘制棒棒糖的"杆"
  geom_segment(aes(x = 1, xend = Var1, yend = Category), color = "gray50") +
  # 绘制气泡，按条件设置颜色
  geom_point(aes(color = Var1 > 1), size = 4) +
  # 分方向添加标签：Var1>1时右偏，否则左偏
  geom_text(aes(label = round(Var1, 2), color = Var1 > 1),
            nudge_x = ifelse(df$Var1 > 1, 0.1, -0.1),
            size = 3.5) +
  # 设置颜色映射
  scale_color_manual(values = c("FALSE" = "pink", "TRUE" = "blue"),
                     labels = c("Var1 ≤ 1", "Var1 > 1")) +
  # 添加参考线x=1
  geom_vline(xintercept = 1, linetype = "dashed", color = "gray30") +
  labs(x = "Var1 Value", y = "Category", color = "Group") +
  theme_minimal()

关键细节说明： #

• 用ifelse(df$Var1 > 1, 0.1, -0.1)给不同组的标签设置相反的偏移量，蓝色组（Var1>1）向右偏，粉色组向左偏；
• 标签的颜色和气泡保持一致，让视觉更统一；
• 如果遇到标签重叠的情况，可以换成ggrepel包的geom_text_repel，同样可以用条件判断设置nudge_x，甚至能自动调整位置避免重叠：

library(ggrepel)

ggplot(df, aes(x = Var1, y = Category)) +
  # 其他图层不变
  geom_text_repel(aes(label = round(Var1, 2), color = Var1 > 1),
                  nudge_x = ifelse(df$Var1 > 1, 0.2, -0.2),
                  force = 1,
                  size = 3.5) +
  # 其他设置不变

这样就能完美实现你想要的效果啦！

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