如何在ggplot2::cut_interval()中关闭科学计数法？

问题说明 #

常规情况下，options(scipen = 999)可以关闭R中的科学计数法显示，但该设置对ggplot2::cut_interval()生成的分组标签无效，导致大数值的分组标签仍以科学计数法呈现（如(1e+04,1.01e+04]），需要让这些标签以常规数字格式显示。

示例代码及运行结果：

library(dplyr)
library(ggplot2)
options(scipen = 999) # 全局关闭科学计数法设置

# 构建示例数据框
df <- 
  data.frame(
    number = c(10047,439,111,10385,5,10384,10460)
  )

# 创建分组变量（生成科学计数法标签）
df %>% 
  mutate(
    grouping = cut_interval(number, length = 100, width = 1, center = 0)
  )
#>   number            grouping
#> 1  10047    (1e+04,1.01e+04]
#> 2    439           (400,500]
#> 3    111           (100,200]
#> 4  10385 (1.03e+04,1.04e+04]
#> 5      5             [0,100]
#> 6  10384 (1.03e+04,1.04e+04]
#> 7  10460 (1.04e+04,1.05e+04]

解决方法 #

方法1：通过labels参数传入自定义格式化函数 #

cut_interval支持通过labels参数指定标签格式化逻辑，推荐使用scales包的label_number()函数直接生成常规数字格式的标签：

library(dplyr)
library(ggplot2)
library(scales)

df <- 
  data.frame(
    number = c(10047,439,111,10385,5,10384,10460)
  )

# 生成常规数字格式的分组标签
df %>% 
  mutate(
    grouping = cut_interval(
      number, 
      length = 100, width = 1, center = 0,
      labels = label_number(scale_cut = cut_short_scale())
    )
  )

运行后grouping列的标签会变为(10000,10100]、(10300,10400]这类常规格式。

如果不想依赖scales包，也可以手动编写格式化函数处理标签：

# 自定义标签格式化函数
format_regular_num <- function(breaks) {
  lapply(breaks, function(x) {
    paste0(
      "(", format(as.numeric(sub("\\((.*),.*", "\\1", x)), scientific = FALSE),
      ",", format(as.numeric(sub(".*,(.*)\\]", "\\1", x)), scientific = FALSE), "]"
    )
  }) %>% unlist()
}

df %>% 
  mutate(
    grouping = cut_interval(number, length = 100, width = 1, center = 0) %>% 
      format_regular_num()
  )

方法2：生成分组后批量替换标签格式 #

先通过cut_interval生成分组，再用字符串替换将科学计数法转为常规数字：

df %>% 
  mutate(
    grouping = cut_interval(number, length = 100, width = 1, center = 0),
    # 替换科学计数法为常规数字
    grouping = gsub("1e\\+04", "10000", grouping),
    grouping = gsub("1\\.0(\\d)e\\+04", "10\\100", grouping)
  )

这种方法适合简单场景，但通用性较差，需根据实际数值调整替换规则。

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