ggplot数据标签添加千位分隔符且消除左侧空白问题

问题说明 #

使用ggplot绘制图表时，为千位以上数值的标签添加逗号作为千分位分隔符以提升可读性，但遇到问题：位数小于最大位数的数值标签左侧会出现额外空白，导致标签框大小不一致。

原代码如下：

df <- data.frame( Year = c(2020, 2021, 2022, 2023), 
                  Var1 = c(1509.89, 21698, 140.98, 500), 
                  Var2 = c(2, 3000.9, 410.4, 5), 
                  Var3 = c(198.51, 2430.49, 421, 4853) ) 

spline_Var1 <- as.data.frame(spline(df$Year, df$Var1))
spline_Var2 <- as.data.frame(spline(df$Year, df$Var2))
spline_Var3 <- as.data.frame(spline(df$Year, df$Var3))

splines <- bind_rows(
  list(Var1 = spline_Var1, 
       Var2 = spline_Var2, 
       Var3 = spline_Var3),
  .id = "var"
)

df <- df |>
  pivot_longer(
    cols = c(Var1, Var2, Var3), names_to = "var", values_to = "value"
  )


ggplot(df) +
  geom_point(aes(x = Year, y = value, colour = var)) +
  geom_line(aes(x = x, y = y, colour = var), data = splines) +
  geom_label_repel(aes(x = Year, y = value, 
                       label = format(round(value, digits = 0),big.mark=",",scientific=FALSE)), 
                   max.overlaps = Inf)

问题表现：像"2""5"这类短数值的标签左侧会出现多余空白，导致对应标签框被不必要地撑大。

解决方案 #

方法1：修改format()函数参数 #

原代码中format()默认开启trim=FALSE，会自动填充空白让所有标签字符串长度一致。只需添加trim=TRUE参数即可去除前导空白：

修改后的geom_label_repel部分：

geom_label_repel(aes(x = Year, y = value, 
                     label = format(round(value, digits = 0), big.mark=",", scientific=FALSE, trim=TRUE)), 
                 max.overlaps = Inf)

方法2：使用scales包的comma()函数 #

scales包的comma()函数专门用于格式化带千分位的数值字符串，默认不会产生多余空白，且无需手动处理round和format的参数，代码更简洁：

首先确保安装并加载scales包：

install.packages("scales")
library(scales)

然后修改标签部分：

geom_label_repel(aes(x = Year, y = value, 
                     label = comma(round(value, digits = 0))), 
                 max.overlaps = Inf)

如果不需要四舍五入，直接用comma(value)即可，函数会自动处理小数位数和千分位。

原理说明 #

• format()函数默认trim=FALSE，会根据数据中最长数值的位数，在短数值左侧填充空格以对齐，这就是空白的来源；trim=TRUE会移除这些不必要的前导空格。
• scales::comma()是为数据可视化设计的格式化工具，默认输出无多余空白的千分位字符串，更适配ggplot的标签需求。

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