如何在R中无需使用循环动态对数值向量进行取整/格式化？

很高兴帮你解决这个问题！你想要给每个数值匹配对应的小数位数进行格式化，而且因为数据量大不想用循环。确实round()会保留多余的零，format()用digits参数也不是按小数位数来控制，所以这两个方法都达不到你的预期。下面给你两个高效的向量化方案，完全不用循环：

方案1：实现截断到指定小数位并格式化（匹配你的预期结果） #

你的示例结果里，比如6.649058保留两位小数得到6.64（而非四舍五入的6.65），8.408533保留两位得到8.40，看起来是需要截断而非四舍五入。可以用以下步骤：

1. 先向量化截断每个数值到对应小数位：

v1 <- c(7.449835, 6.649058, 9.072736, 5.643506, 8.979166, 5.544238, 1.746717, 4.151327, 8.408533, 1.176206)
v2 <- c(1, 2, 0, 3, 4, 6, 1, 2, 2, 3)

# 截断到指定小数位
truncated_v1 <- floor(v1 * 10^v2) / 10^v2

2. 生成对应的格式化字符串，用sprintf()批量格式化：

# 生成每个元素对应的格式，比如"%.1f"、"%.2f"等
fmt_strings <- paste0("%.", v2, "f")
# 对小数位为0的元素，格式改为"%d"（整数格式），匹配你要的"9"而非"9.0"
fmt_strings[v2 == 0] <- "%d"
# 批量格式化
result <- sprintf(fmt_strings, truncated_v1)

运行后得到的result就是完全匹配你示例的字符向量：

> result
 [1] "7.4"      "6.64"     "9"        "5.643"    "8.9791"   "5.544238" "1.7"      "4.15"     "8.40"     "1.176"

方案2：四舍五入到指定小数位并格式化 #

如果你需要的是四舍五入而非截断，只需要把第一步的截断换成round()即可：

rounded_v1 <- round(v1, digits = v2)
fmt_strings <- paste0("%.", v2, "f")
fmt_strings[v2 == 0] <- "%d"
result_round <- sprintf(fmt_strings, rounded_v1)

运行结果如下（和round()的计算逻辑一致）：

> result_round
 [1] "7.4"      "6.65"     "9"        "5.644"    "8.9792"   "5.544238" "1.7"      "4.15"     "8.41"     "1.176"

为什么之前的方法不行？ #

• round(v1, digits = v2)：虽然能按对应小数位四舍五入，但返回的是数值向量，R会自动去掉末尾的零，并且显示多余的小数位（比如7.4会显示成7.400000），不符合你的格式化需求。
• format(v1, digits = v2)：这里的digits参数是指总有效数字位数，而非小数位数，所以会把7.449835（v2=1）格式化成"7"（只保留1位有效数字），完全不是你想要的效果。

内容的提问来源于stack exchange，提问作者David J. Bosak