R语言cut函数如何设置仅控制小数点后位数并避免科学计数法？

你遇到的问题是用cut生成分组标签时，没法同时满足「保留两位小数+不使用科学计数法」：设dig.lab=2时大数会变成科学计数，设大了小数位又太多。下面给两种直接可行的解决方案：

方法1：手动生成符合要求的标签 #

先算出分位数断点，自己格式化后拼接成标签，再传给cut：

# 生成示例数据
x1 <- runif(50, min=0, max=1)
x2 <- runif(50, min=1, max=1000)
x <- c(x1,x2)
y <- runif(100, min=1, max=6)
d <- data.frame(x, y)

# 计算分位数断点
breaks <- unique(quantile(x, c(0,0.25,0.5,0.75,0.9,1)))
# 格式化断点：保留2位小数，禁用科学计数法
formatted_breaks <- format(breaks, nsmall=2, scientific=FALSE)
# 拼接成cut需要的标签格式
labels <- paste0(
  ifelse(seq_along(formatted_breaks) == 1, "[", "("),
  formatted_breaks[-length(formatted_breaks)],
  ", ",
  formatted_breaks[-1],
  "]"
)
# 生成分组并指定自定义标签
d$factor <- cut(x, breaks=breaks, include.lowest=TRUE, labels=labels)

# 绘图
ggplot(d, aes(y, x, color=factor)) +
  geom_point()

方法2：修改已生成的分组标签 #

如果已经用cut生成了分组，直接修改因子的标签即可：

# 先正常生成分组（dig.lab设大一点避免科学计数）
d$factor <- cut(x, breaks=breaks, include.lowest=TRUE, dig.lab=10)
# 批量修改标签格式
levels(d$factor) <- sapply(levels(d$factor), function(lab) {
  # 提取标签里的数字
  nums <- as.numeric(gsub("[^0-9.]+", "", strsplit(lab, ",")[[1]]))
  # 格式化数字
  formatted_nums <- format(nums, nsmall=2, scientific=FALSE)
  # 重新拼接成标准标签
  paste0(substr(lab, 1, 1), formatted_nums[1], ", ", formatted_nums[2], "]")
})

# 绘图
ggplot(d, aes(y, x, color=factor)) +
  geom_point()

核心是用format函数的nsmall=2强制保留两位小数，scientific=FALSE彻底禁用科学计数法，不管数字大小都能显示成符合要求的格式。

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