根据目前我对R语言的理解，最不方便完成格式转换的当属时间（time）类型的数据了，就是“时分秒”
R语言中默认的POSIXct类，非要加上个日期，如果没有的话，就会自动取当前系统的日期加上去，当日期和时间分列存储的时候就多有不便。

### 把日期和时间格式化
a$date <- as.Date(a\$date)
a\$time <- strptime(a\$time, format = "%H:%M:%S")

#### 根据系统日期转化成date中的日期
#### 获取当前日期，计算当前日期和目标日期差的天数，转化成numeric向量
date.gap <- as.Date(Sys.Date()) - a\$date
date.gap <- as.numeric(date.gap)

#### 一天有86400秒，取date.gap中的一个元素作为差的天数，转化成秒后用当前时间减
a\$time <- a\$time - 86400 * date.gap[1]