如何通过options()设置R默认输出保留3位小数且禁用科学计数法？

要实现控制台输出数值时固定保留3位小数、不使用科学计数法，且不改变变量实际值，可通过自定义打印方法实现，具体操作如下：

1. 自定义打印方法 #

运行以下代码，覆盖默认的数值型对象和矩阵打印逻辑，强制输出格式为3位小数：

# 自定义数值型向量的打印规则
print.numeric <- function(x, digits = 3, nsmall = 3, ...) {
  base::print(format(x, digits = digits, nsmall = nsmall, scientific = FALSE), ..., quote = FALSE)
}

# 自定义矩阵的打印规则
print.matrix <- function(x, digits = 3, nsmall = 3, ...) {
  formatted_mat <- apply(x, c(1, 2), function(val) {
    format(val, digits = digits, nsmall = nsmall, scientific = FALSE)
  })
  base::print(formatted_mat, ..., quote = FALSE)
}

2. 测试效果 #

执行你提供的矩阵示例：

matrix(c(0.00003, 0.1111111), ncol = 1)

输出将符合预期：

[,1]
[1,] 0.000
[2,] 0.111

3. 验证变量实际值未修改 #

自定义打印仅改变显示效果，变量的实际数值保持不变：

x <- 0.00003
x  # 显示0.000
x == 0.00003  # 返回TRUE，说明实际值未被修改

补充说明 #

• 若要恢复默认打印行为，重启R会话即可，或运行rm(print.numeric, print.matrix)移除自定义方法。
• 如需支持数据框等其他对象，可参照上述逻辑扩展print.data.frame方法。

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