R语言中如何将生成的日期序列拆分为年、月、日、小时列？

错误原因 #

你之前的操作错误在于直接对整个data.frame使用strsplit或as.character，而不是针对其中的POSIXct类型列。POSIXct本质是存储为数值型的时间戳，直接转换整个数据框会得到时间戳的向量字符串表示，而非可读的日期格式。

解决方案 #

以下是三种可靠的处理方式，优先推荐前两种：

1. Base R 内置函数（无需额外包）

直接对Date列使用format函数提取各部分，格式符对应不同时间单位：

# 提取年（4位）
Dates$Year <- format(Dates$Date, "%Y")
# 提取月（2位）
Dates$Month <- format(Dates$Date, "%m")
# 提取日（2位）
Dates$Day <- format(Dates$Date, "%d")
# 提取小时（2位，24小时制）
Dates$Hour <- format(Dates$Date, "%H")

或者通过转换为POSIXlt类型提取属性：

dates_lt <- as.POSIXlt(Dates$Date)
Dates$Year <- dates_lt$year + 1900  # POSIXlt的year从1900开始计数，需加1900
Dates$Month <- dates_lt$mon + 1     # POSIXlt的月份从0开始，需加1
Dates$Day <- dates_lt$mday
Dates$Hour <- dates_lt$hour

2. 使用lubridate包（更直观简洁）

lubridate包专门处理日期时间，语法更易懂：

# 先安装包（首次使用）
install.packages("lubridate")
library(lubridate)

# 直接提取各时间部分
Dates$Year <- year(Dates$Date)
Dates$Month <- month(Dates$Date)
Dates$Day <- day(Dates$Date)
Dates$Hour <- hour(Dates$Date)

3. 字符串拆分法（不推荐，仅作参考）

如果一定要用strsplit，需先将Date列单独转为字符型，再拆分：

# 仅转换Date列为字符
dates_char <- as.character(Dates$Date)
# 按"-"和空格拆分
date_parts <- strsplit(dates_char, "-| ")
# 提取各部分到新列
Dates$Year <- sapply(date_parts, `[`, 1)
Dates$Month <- sapply(date_parts, `[`, 2)
Dates$Day <- sapply(date_parts, `[`, 3)
Dates$Hour <- sapply(date_parts, `[`, 4)

这种方法依赖日期字符串的格式稳定性，若时区或显示格式变化可能出错，不如前两种方法可靠。

内容的提问来源于stack exchange，提问作者DJ-AFC