在每00:00:00小时将日期和时间转换为Po-6时获取NA

Question

我试图将AM/PM格式的日期和时间转换为as.posixct，但是每到00:00，我就得到NA。请给我带路。请参阅下图。

​

代码I与循环一起测试

i=0
  for (i in 1:nrow(clean_df)){
  if((is.na(clean_df$Local_time)[i]) ==  TRUE){
  #cat("",clean_df$Local_time[i])
  clean_df$Local_time[i] <- paste("",as.Date(clean_df$Local_time[i-1]),"00:00:00")
  }
    print(nrow(clean_df)-i)

}  

但是上面的代码需要更长的时间来执行，这是不建议的。请大家解决这个问题。

Answer 1

考虑到您的一些原始数据可能缺少时间组件，当您期望它在转换为POSIXct时出现时，我看不出有任何方法可以擦除您的数据。但是，您可以尝试以矢量化的方式进行擦除，这样效果可能会更好：

clean_df$Local_time <- ifelse(nchar(clean_df$Local_time) == 10,
                              paste(clean_df$Local_time, "00:00:00"),
                              clean_df$Local_time)