用R语言提取数据框中日期对应年份（列表转矩阵）
在数据处理中常会遇到要对数据框中的时间做聚类处理，如从"%m/%d/%Y"中提取年份。
对应操作为：拆分成列表——列表转矩阵——利用索引从矩阵中提取第一列——
year<-strsplit(case_data2$Date,split = "-") # strsplit函数将数据拆分成列表 year1<-do.call(rbind, year)[,]# 将列表转换为矩阵，提取第一列——年份 case_data2$year1<-year1
其他办法供参考：
x <- list(rnorm(), rexp(), rt(, ))
x.mat <- matrix(unlist(x), , )
x.mat
