R语言中如何避免as.character及replace操作移除数字末尾零？

R里的数值类型不会存储小数末尾的零，0.10和0.1在数值层面是完全等价的，所以直接转字符或者做替换操作时，末尾零会被自动省略。要保留指定的小数位数，有两种常用方法：

方法一：初始定义时用字符串向量 #

直接把数值以字符串形式存入向量，从根源上保留格式：

kappa <- c("0.10", NA, "0.0740")

之后不管执行替换NA的操作还是直接调用，都能保留末尾零：

kappa %>% replace(is.na(.), "")
# [1] "0.10"  ""      "0.0740"

方法二：对已有数值向量进行精准格式化 #

如果已经是数值向量，可以用sprintf()配合自定义的小数位数，逐个元素格式化：

# 原数值向量
kappa <- c(0.10, NA, 0.0740)
# 为每个元素指定需要保留的小数位数
decimal_digits <- c(2, NA, 4)

# 逐个格式化
formatted_kappa <- mapply(function(num, digits) {
  if (is.na(num)) NA else sprintf(paste0("%.", digits, "f"), num)
}, kappa, decimal_digits)

# 查看结果
formatted_kappa
# [1] "0.10"   NA      "0.0740"

# 替换NA为空字符串的话
formatted_kappa %>% replace(is.na(.), "")
# [1] "0.10"  ""      "0.0740"

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