从R中的日期字段中提取日期部分

# 使用基本的日期函数
date_field <- "2022-01-01"
date <- as.Date(date_field)
formatted_date <- format(date, "%Y-%m-%d")
extracted_date <- substr(date_field, 1, 10)

# 使用lubridate包
library(lubridate)
date_field <- "2022-01-01"
date <- ymd(date_field)
year_part <- year(date)
month_part <- month(date)
day_part <- day(date)

# 使用正则表达式
library(stringr)
date_field <- "2022-01-01"
extracted_date <- gsub("\\d{4}-\\d{2}-\\d{2}", "", date_field)

# 腾讯云相关产品介绍链接
# 1. 云服务器（CVM）：https://cloud.tencent.com/product/cvm
# 2. 云数据库 MySQL 版（CMYSQL）：https://cloud.tencent.com/product/cmysql
# 3. 人工智能（AI）：https://cloud.tencent.com/product/ai
# 4. 云存储（COS）：https://cloud.tencent.com/product/cos