R语言中将数值对象转换为字符对象时如何保留末尾的零

以下是我在R中处理数值对象转字符对象时遇到的问题截图，其余数据框内容均正确，仅「46」「104」后面的末尾零丢失。

参考如下最小可复现示例（MWE）：

library(dplyr)

# 我首先创建了随机数据，随后基于数据生成五分位数，随机数据如下：
testdata1 <- structure(list(X = c(62.5229689071269, 145.825042620083, 124.871684774549, 
                                86.2501301893607, 101.433010648648, 144.618979893455, 110.778688415318, 
                                45.9851314727384, 106.411772801465, 56.7832887263229, 162.318035050403, 
                                72.8574239442922, 133.416450070424, 137.670510111283, 107.965525693767, 
                                114.545917853894, 103.963829924899, 123.393869519699, 70.6355172309528, 
                                67.4792934191092), quintiles = structure(c(1L, 5L, 4L, 2L, 2L, 
                                5L, 3L, 1L, 3L, 1L, 5L, 2L, 4L, 5L, 3L, 4L, 3L, 4L, 2L, 1L),
                                .Label = c("[46,70]", "(70,103]", "(103,112]", "(112,134]", "(134,162]"),
                                class = "factor")), row.names = c(NA, 20L), class = "data.frame")

# 新数据框testdata2包含4列：
# 1) 五分位数区间
# 2) 每个五分位数内X的最小值
# 3) 每个五分位数内X的最大值
# 4) 每个五分位数内X的取值范围：

testdata2 <- as.data.frame(levels(testdata1$quintiles))
names(testdata2)[1] <- 'Quintiles'

testdata2$Min <- testdata1 %>% group_by(quintiles) %>% summarise(X = min(X)) %>%
  select(X)  %>% mutate(across(where(is.numeric), round, 1)) %>% as.matrix %>% as.character

testdata2$Max <- testdata1 %>% group_by(quintiles) %>% summarise(X = max(X)) %>%
  select(X)  %>% mutate(across(where(is.numeric), round, 1)) %>% as.matrix %>% as.character

testdata2$Range <- format(paste(testdata2$Min, testdata2$Max, sep="-"))

View(testdata2)

补充说明：我此前遇到了整个最小值、最大值向量被填充到数据框每个单元格的问题，删除代码中的两个as.matrix函数即可复现该问题，请问除了使用as.matrix外有没有更优雅的实现方案？

你的两个需求（不需要as.matrix、保留末尾零）可以通过标准的tidyverse分组汇总逻辑一次性实现，代码更简洁高效：

优化后代码 #

library(dplyr)

testdata2 <- testdata1 %>%
  # 一次分组完成所有统计计算，避免重复遍历数据
  group_by(quintiles) %>%
  summarise(
    Min = min(X),
    Max = max(X),
    .groups = "drop"
  ) %>%
  # 统一处理数值格式化，强制保留1位小数不会丢失末尾0
  mutate(
    across(c(Min, Max), ~ format(round(.x, 1), nsmall = 1)),
    Range = paste(Min, Max, sep = "-"),
    Quintiles = as.character(quintiles)
  ) %>%
  # 调整列顺序和你的原始需求一致
  select(Quintiles, Min, Max, Range)

逻辑说明 #

• 你之前必须加as.matrix是因为分组汇总后得到的是tibble结构，直接赋值给数据框列时R会将其作为列表处理，导致整个向量填充到每个单元格，一次性分组汇总后直接生成对应列即可避免该问题，不需要额外的类型转换。
• 末尾零丢失是因为round后直接转字符时R会自动省略无意义的末尾零，用format(..., nsmall = 1)可以强制保留1位小数，完全解决格式问题。
• 该写法只对源数据做一次分组计算，比原有反复分组查询的写法效率更高，逻辑也更清晰。

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