R语言：如何高效从已处理为double类型的时间戳中提取日期

嘿，我来给你几个更高效的解决方案，既能避开字符串拆分的低效操作，还能解决你遇到的维度问题：

方法1：直接利用anytime的输出转Date #

anytime默认返回的是POSIXct类型的日期时间对象（底层存储是double，但R会把它当作日期时间类型处理），你完全不需要转成字符串再拆分——as.Date()可以直接接收POSIXct对象，自动忽略时间和时区部分，只保留日期：

library(anytime)
# 先把原始time列转成POSIXct格式
df$datetime <- anytime(df$time)
# 直接提取日期部分
df$date <- as.Date(df$datetime)

方法2：如果已有double类型的时间戳 #

要是你已经把anytime的结果存成了纯double数值（POSIXct的内部存储是从1970-01-01开始的秒数），也可以直接转成Date，不用绕字符串：

# 假设df$time_double是anytime返回的double值
df$date <- as.Date(as.POSIXct(df$time_double, origin = "1970-01-01", tz = "UTC"))

方法3：用lubridate简化操作 #

如果你习惯用lubridate包，代码会更简洁，效率同样很高：

library(lubridate)
# 直接解析时间字符串并提取日期
df$date <- as.Date(ymd_hms(df$time))

为什么你的原方法有问题？ #

你用str_split_fixed后得到的是一个矩阵，直接赋值给date列会导致维度不匹配——如果要保留原思路，得取矩阵的第一列：str_split_fixed(df$date, " ", 2)[,1]，但这种字符串拆分的方式比直接操作日期时间类型慢很多，尤其是数据量大的时候。

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