R语言max函数返回值小数位丢失 如何保留指定列两位小数

R中数值的内存存储精度和控制台打印显示的小数位数是相互独立的两套逻辑，你观察到的max(df$e)返回2.1、数据框打印时e列只显示1位小数，都是默认打印规则的截断效果，不是数值本身丢了精度：

• 定义e = c(2.12,1.69)时，2.12的完整值已经存在内存中，max(df$e)的实际计算结果就是2.12，只是打印时被截断显示。
• 之前调用round()、修改options()没生效，要么是没把round结果赋值回原数据框，要么是全局有效数字位数设置得太小，导致两位小数被截断。

第一步：完成f列计算 #

直接运行你写的计算逻辑即可，不需要额外调整max的取值，计算本身精度是准确的，可以通过print(max(df$e), digits = 3)验证max的实际返回值确实是2.12：

# 构造原始数据
a = c(228, 239)
b = c(50,83)
d = c(0.27,0.24) 
e = c(2.12,1.69)
df = data.frame(a,b,d,e)

# 验证max实际取值
print(max(df$e), digits = 3)
# [1] 2.12

# 计算f列
df$f = (sqrt(df[,1]/(df[,2]+0.5))/max(df$e))*100

第二步：按要求设置各列小数位 #

根据后续使用场景选对应方法即可：

方法1：数值层做精度处理（适合后续还要做数值计算的场景） #

对需要保留两位小数的列做round处理，同时调整全局打印参数避免显示截断：

# d、e、f列保留两位小数，a、b列保持整数
df[, c("d", "e", "f")] <- round(df[, c("d", "e", "f")], digits = 2)

# 设置全局打印有效数字为3位，保证两位小数可以正常显示不被截断
options(digits = 3)

# 查看结果
df
#    a  b    d    e     f
# 1 228 50 0.27 2.12 100.0
# 2 239 83 0.24 1.69  89.4

注意：options(digits)参数控制的是打印时的有效数字总位数，不是小数点后位数，设置为3即可覆盖两位小数的显示需求，不会出现1位截断的问题。

方法2：格式化输出（适合直接导出报表、不需要后续计算的场景） #

如果只需要最终展示的表格严格符合小数位要求，可以直接格式化输出，不修改原始数值：

df_formatted <- format(
  df,
  # 按列指定最小显示小数位数：a、b列0位，d、e、f列2位
  nsmall = c(0,0,2,2,2),
  digits = 2
)
# 关闭引号打印，更符合常规表格查看习惯
print(df_formatted, quote = FALSE)
#    a   b    d    e    f   
# 1 228 50  0.27 2.12 100.00
# 2 239 83  0.24 1.69  89.36

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