定义不知长度的的时间格式向量
然后通过for循环用if条件赋值
time[n]<-data$V2[i]
date[n]<-data$V1[i]
试了以下三种出来的结果time都不是
time<-character()
time<-numeric(0)
date<-(format="%Y-%m-%d")
time<-(format="%H:%M:%S")
运行结果的date和time都是乱七八糟的五位数而不是想要的日期和时间的格式

是否要先定义data$V1和data$V2的格式，应如何定义？
time和date又该如何定义