R语言：数据框字符型日期转日期类型及年份提取方法（含报错解决）

嘿，我看你遇到了日期转换的报错问题，先帮你理清问题，再给你简单易复用的解决办法：

首先看你写的代码，报错的直接原因是语法错误：as.Date里的format = "%m/%d/%Y"少了一个闭合的双引号，补上就能解决基础的转换问题，但我还会给你更通用的方法，方便你在其他数据集里复用。

一、字符型日期转日期类型 #

方法1：Base R 修正版 #

先把你的代码补全引号，就能正常转换了，这个方法适合你当前的日期格式（月/日/年）：

# 修正语法错误，转换日期列
d$date <- as.Date(d$date, format = "%m/%d/%Y")

这里%m代表月份（单/双数字都能识别），%d代表日期，%Y代表四位年份，完全匹配你数据里的2/1/1980这类格式。

方法2：lubridate包（推荐复用） #

如果经常处理不同格式的日期，lubridate包的函数能自动识别日期顺序，不用手动写格式，通用性拉满，非常适合跨数据集复用：

# 第一次使用先安装包
install.packages("lubridate")
library(lubridate)

# 直接转换月/日/年格式的日期，自动识别单双数字
d$date <- mdy(d$date)

不管你的日期是2/1/1980还是02/01/1980，mdy()（代表month-day-year）都能精准识别，以后遇到同顺序的日期直接用这个函数就行。

二、提取年份 #

转换完日期类型后，提取年份就非常简单了：

方法1：Base R 实现 #

用format()函数可以提取字符型年份，也可以转成数值型：

# 提取字符型年份到新列
d$year <- format(d$date, "%Y")

# 如果需要数值型年份，再加一步转换
d$year_num <- as.numeric(d$year)

方法2：lubridate包（更直观） #

lubridate有专门的year()函数，直接提取数值型年份，代码更简洁：

d$year <- year(d$date)

总结一下，推荐用lubridate的组合方案，代码短、通用性强，以后处理类似问题直接复制粘贴就行，省不少事～

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