如何为ggplot连续色标最后一个标签添加>=前缀？

针对长尾分布数据的绘图需求，我们可以通过自动截断尾部数值+自定义图例标签逻辑来实现，无需手动设置breaks和labels，具体实现如下：

完整可运行代码 #

library(tidyverse)

set.seed(123)
x <- rnorm(1:1e3)
y <- rnorm(1:1e3)
z <- rnorm(1e3, mean = 50, sd = 15)

d <- tibble(x = x, y = y, z = z)

# 计算98%分位数作为截断点
trunc_point <- quantile(d$z, 0.98)

d %>% 
  mutate(z_trunc = pmin(z, trunc_point)) %>%  # 截断尾部数值
  ggplot(aes(x = x, y = y, color = z_trunc)) +
  geom_point() +
  scale_color_viridis_c(
    labels = function(breaks) {
      # 给最后一个标签添加>=前缀
      breaks[length(breaks)] <- paste0(">=", breaks[length(breaks)])
      breaks
    },
    name = "z"  # 保持图例名称与原变量一致
  )

关键逻辑说明 #

• pmin(z, trunc_point)：将z值中超过截断点的部分替换为截断点，实现尾部截断，避免异常值掩盖大部分数据的差异
• 自定义labels函数：通过length(breaks)自动定位最后一个图例标签，拼接>=前缀，完全匹配你需要的if(it's the last label) ~paste0(">=",label) else label逻辑
• 保留viridis连续色板的视觉优势，同时让图例准确反映截断后的数值范围

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