将字符变量转换为R中仅包含年份的日期变量

# 假设字符变量为date_str
date_str <- "2022-09-15"

# 将字符变量转换为日期变量
date <- as.Date(date_str)

# 提取年份部分
year <- format(date, "%Y")

# 打印结果
print(year)

[1] "2022"

# 假设字符变量为date_str
date_str <- "2022-09-15"

# 提取年份部分
year <- substr(date_str, 1, 4)

# 打印结果
print(year)

[1] "2022"