如何用一行代码从矩阵列提取年、月、日并简化代码？

原代码重复调用as.Date()三次，存在不必要的计算冗余，以下是几种更高效简洁的解决办法：

方案1：单次转换日期后提取（基础R实现） #

先统一处理日期字符串并转换为Date类型一次，再分别提取年、月、日，避免重复转换开销：

# 去除字符串中下划线及后续内容，转换为Date对象
date_col <- as.Date(sub("_.*", "", matrix[, dt_ind]))
# 提取年月日
year <- as.numeric(format(date_col, "%Y"))
month <- as.numeric(format(date_col, "%m"))
day <- as.numeric(format(date_col, "%d"))

方案2：直接字符串分割（效率最优） #

由于你的日期格式固定为YYYY-MM-DD_xxxx，无需转换为Date类型，直接通过字符串操作提取更高效：

# 第一步：去除下划线及后面的内容
clean_dates <- sub("_.*", "", matrix[, dt_ind])
# 按横杠分割日期部分
date_parts <- strsplit(clean_dates, "-")
# 转换为矩阵方便提取
date_parts_mat <- do.call(rbind, date_parts)
# 提取并转换为数值型
year <- as.numeric(date_parts_mat[, 1])
month <- as.numeric(date_parts_mat[, 2])
day <- as.numeric(date_parts_mat[, 3])

如果使用stringr包，代码会更简洁：

library(stringr)
clean_dates <- str_remove(matrix[, dt_ind], "_.*")
year <- as.numeric(str_extract(clean_dates, "^\\d{4}"))
month <- as.numeric(str_extract(clean_dates, "(?<=-)\\d{2}(?=-)"))
day <- as.numeric(str_extract(clean_dates, "\\d{2}$"))

方案3：lubridate包简化操作（可读性最优） #

用专门处理日期时间的lubridate包，代码更直观易读：

library(lubridate)
# 清理字符串后转换为日期对象
date_col <- ymd(str_remove(matrix[, dt_ind], "_.*"))
# 直接调用函数提取年月日
year <- year(date_col)
month <- month(date_col)
day <- day(date_col)

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