有一种分隔符

data5[,1]<-as.character(data5[,1])
month<-t(as.data.frame(strsplit(data5[,1],split="/")))[,2]

有两种分隔符

data5[,1]<-as.character(data5[,1])#需要是character
a<-strsplit(data5[,1],split="/|-")#数据中有/和-两种分隔符
huoguo<-array()
xiangguo<-array()
for(i in 1:length(a)){
huoguo<-a[[i]][2]
xiangguo<-c(xiangguo,huoguo)
}