我想将data1中第三列的数据转换为时间格式，并替换掉原来data1中的第三列，使用以下代码：

data1[,3]<-strptime(data1[,3],'%H:%M:%S')

出现警告信息：Warning message:
In `[<-.data.frame`(`*tmp*`, , 3, value = list(sec = c(0, 0, 0,  :
  provided 11 variables to replace 1 variables

然后data1中第三列的数全部变成0了。。。。

不过我单独使用strptime(data1[,3],'%H:%M:%S') 得到的确实是我想要的数据为时间格式的向量，但为什么赋值给原来的data1第三列时会出错？