R新手求助：使用openxlsx读取Excel如何完全保留原显示格式？

1. 为什么Excel显示的8.7在R里变成了8.66665...？ #

Excel单元格里看到的「8.7」是格式化后的显示值，但Excel实际存储的是更精确的浮点数值（比如8.6666529999776429）。openxlsx::read.xlsx默认读取的是Excel底层存储的真实数值，而非显示的格式化文本，所以会出现这种差异。

2. 转numeric后统一显示两位小数的问题 #

你提到转numeric后所有数字变成两位小数，这不是as.numeric()本身导致的——as.numeric()只会转换数据类型，不会修改数值的存储精度。大概率是你后续用了format()、round()这类格式化函数，或者设置了R的全局显示选项（比如options(digits=2)），导致显示上变成两位小数，但实际存储的数值还是完整的。

3. colClasses参数无效的原因 #

openxlsx::read.xlsx不支持colClasses参数——这个参数属于readxl、xlsx等其他Excel读取包。你用错了参数名，所以R会提示该参数未使用。

4. 正确实现保留Excel显示格式的方法 #

要读取Excel中显示的格式化文本（而非底层数值），需要用openxlsx的colTypes参数指定目标列为"character"类型：

示例代码 #

假设你的Excel文件名为data.xlsx，「Filename extension」是第2列，其他列需要保留数值类型：

library(openxlsx)
# 读取时指定列类型：第2列为字符型，其余为数值型
df <- read.xlsx(
  xlsxFile = "data.xlsx",
  colTypes = c("numeric", "character", "numeric") # 根据你的列数调整向量长度和类型
)

这样读取后，「Filename extension」列会直接读取Excel中显示的文本（比如"8.7"、"1.0"），完全保留你在Excel里看到的格式。

备选方案：读取数值后格式化 #

如果已经读取了底层数值，想转换成和Excel显示一致的文本，可以用sprintf()或format()函数根据需要格式化：

# 假设原数值列是df$extension
df$extension_formatted <- sprintf("%.1f", df$extension) # 保留1位小数，对应Excel的8.7
# 或者根据Excel的实际格式调整小数位数

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