# 安装并加载必要的包
install.packages("readxl")
library(readxl)
# 导入Excel文件
data <- read_excel("path_to_your_excel_file.xlsx")
# 假设日期列名为 "date_column"
# 将Excel日期序列号转换为R日期
data$date_column <- as.Date(data$date_column, origin = "1899-12-30")
# 打印转换后的数据
print(data)