r函数，如果其他函数为变量赋值

我和R一起工作，这就是我的困境

这个故事的主旨是，我要用两个不同的时间，在中间分裂时间，并且想用分裂的时间来创建一个单独的列。我用这个公式计算出：

 burglary$midtime <- as.POSIXct((as.numeric(burglary$BegDate) + as.numeric(burglary$EndDate)) / 2, origin = '1970-01-01')

---

入室盗窃$midtimeTaylor H，谢谢你为我指明了正确的方向。ifelse语句有效，但它将日期和时间缩减为数字

最后我使用了dplyr库
库（dplyr）
，它保持了日期和时间的完整性。最后的代码如下。再次感谢您的帮助

burglary$midTime <- if_else(!is.na(burglary$EndDate), as.POSIXct((as.numeric(burglary$BegDate) + as.numeric(burglary$EndDate)) / 2, origin = '1970-01-01'), as.POSIXct(burglary$BegDate))

入室盗窃$midTimeTaylor H，谢谢你为我指明了正确的方向。ifelse语句有效，但它将日期和时间缩减为数字

最后我使用了dplyr库
库（dplyr）
，它保持了日期和时间的完整性。最后的代码如下。再次感谢您的帮助

burglary$midTime <- if_else(!is.na(burglary$EndDate), as.POSIXct((as.numeric(burglary$BegDate) + as.numeric(burglary$EndDate)) / 2, origin = '1970-01-01'), as.POSIXct(burglary$BegDate))

防盗$midTime查看向量化的
ifelse
函数。
if
函数采用长度为1的条件，而
ifelse
采用向量值条件。查看向量化的
ifelse
函数。
if
函数采用长度为1的条件，而
ifelse
采用长度为1的条件向量值条件。