如何在写入CSV时为数值类型（含类整数值）保留小数点？

要让写入CSV的数值（包括整数型数值）都保留小数点格式，核心是先将数值列强制格式化为固定小数位数的字符型，再写入文件。以下是两种基础R的实现方法：

方法一：使用format()函数 #

format()的nsmall参数可以指定强制保留的小数位数，即使是整数也会补全小数点和对应位数的0：

f <- tempfile("d", fileext = ".csv")
# 构造目标数据框
df <- data.frame(x = as.numeric(c(1,2,3.3,4)))
# 格式化数值列，强制保留1位小数
df$x <- format(df$x, nsmall = 1)
# 写入CSV，设置列名加引号、数值列不加，匹配期望格式
write.table(df, f, row.names = FALSE, sep = ",", quote = c(TRUE, FALSE))
# 验证输出结果
readLines(f)
#> [1] "\"x\"" "1.0"   "2.0"   "3.3"   "4.0"
unlink(f)

方法二：使用sprintf()函数 #

通过格式化字符串直接指定小数位数，灵活性更强：

f <- tempfile("d", fileext = ".csv")
df <- data.frame(x = as.numeric(c(1,2,3.3,4)))
# 用sprintf格式化，%.1f表示保留1位小数
df$x <- sprintf("%.1f", df$x)
write.table(df, f, row.names = FALSE, sep = ",", quote = c(TRUE, FALSE))
readLines(f)
#> [1] "\"x\"" "1.0"   "2.0"   "3.3"   "4.0"
unlink(f)

注意事项 #

• 如果需要保留更多小数位数，只需调整对应参数：比如nsmall=2或"%.2f"即可保留两位小数。
• 使用write.table()而非write.csv()是为了更精准控制引号的添加规则，让列名带引号、数值列不带，完全匹配期望输出格式。

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