如何在R语言中高效提取当前时间的毫秒数？

你已经知道通过options("digits.secs" = 6)可以让Sys.time()返回带6位毫秒的完整时间，但想要单独提取毫秒部分时，字符串分割的方法不够高效。这里提供两种更优的实现方式：

方法一：基于数值计算（推荐） #

POSIXct类型的时间本质是从1970-01-01 00:00:00以来的秒数（含小数），直接通过数值运算提取小数部分即可，无需字符串转换，性能最优：

# 将时间转为数值格式
time_numeric <- as.numeric(Sys.time())
# 提取小数部分并转换为6位毫秒数
milliseconds <- as.integer((time_numeric - floor(time_numeric)) * 1000000)
# 补前导零保证固定6位格式（如123转为000123）
sprintf("%06d", milliseconds)

这个方法不需要设置digits.secs参数，全程无字符串操作，效率远高于字符串分割。

方法二：优化的字符串处理 #

如果偏好字符串操作，可利用strftime的%OS参数直接获取带毫秒的时间字符串，再通过更简洁的字符串提取方式获取毫秒部分：

options(digits.secs = 6)
# 提取小数点后的6位毫秒
sub(".*\\.", "", strftime(Sys.time(), "%Y-%m-%d %H:%M:%OS6"))

或者用substr直接定位截取：

options(digits.secs = 6)
time_str <- strftime(Sys.time(), "%OS6")
substr(time_str, nchar(time_str) - 5, nchar(time_str))

这种方式比strsplit+unlist的组合更简洁，减少了列表操作的开销。

内容的提问来源于stack exchange，提问作者Julien Larget-Piet