R tapply时差——单位不一致

我已经搜索了，但没有找到这个问题，所以，如果我忽略了一个帖子，我道歉。 可复制的代码，这样您至少可以看到我正在使用的代码，但错误不会再现（在我的数据中间歇性发生）：

require（dplyr）
df对于问题的第二部分，您可以说
df%>%filter（！is.na（DIFF））%%>%filter（selfreport
亲爱的香蕉；最好是引用你在搜索中发现的东西，而不是请求原谅。还有一个更好的办法是不要在结尾处表示有条件的赞赏。网站开发者认为这是“噪音”。在这方面，我们都死死地遵守他们无所不知的指导。关于你问题的实质而不是形式：午夜日期时间的印刷表示通常“看起来”只是日期。我不知道这是否适用于你的问题，因为你的例子确实“举例说明”了这个问题。@42-，注意到了。我还可以提供其他任何有助于沟通我的问题的信息吗？我知道我的例子不能说明这个问题。。。
require(dplyr)
df <-data.frame(id=as.numeric(c("1","1","1","2","2","2","3")), 
            start= c("1/31/17 10:00","1/31/17 10:02","1/31/17 10:45", 
                             "2/10/17 12:00", "2/10/17 12:20","2/11/17 09:40","2/11/17 10:00"),
            selfreport = c(12,20,10,0,10,37.5,NA))
df$time1 <- as.POSIXct(df$start,format = "%m/%d/%y %H:%M")
df$DIFF <- unlist(tapply(df$time1,df$id, function(x) c(NA,diff(x))))

which[(df$selfreport<df$DIFF) na.action= na.pass)]