将if_else应用于时间和日期时出错

作者: 圈圈红
发布时间: 2024-06-19 03:15:42 (19天前)
转自：

3 条回复

0#
回复此人
哈哈哈哈 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 鉴于你的 <code> Local </code> 列是文本，您应该只能与时间文字进行比较： </p> <pre> <code> datanet$split <- ifelse(datanet$Local >= '18:00' | datanet$Local <= '06:00', 'Night', 'Day') </code> </pre> </DIV>

编辑
1#
回复此人
Moso31 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 'DateTime'列位于 <code> datanet </code> 数据集，所以我们需要 <code> $ </code> </p> <pre> <code> datanet$split<- if_else((hour(datane$DateTime) >= 6) & (hour(datanet$DateTime) < 18), "Day", "Night") </code> </pre> <HR /> <P> 或者使用 <code> with </code> </p> <pre> <code> datanet$split <- with(datenet, if_else((hour(DateTime) >= 6) & (hour(DateTime) < 18), "Day", "Night")) </code> </pre> <HR /> <P> 另外，考虑到原始数据 <code> data.table </code> ，语法会 </p> <pre> <code> library(data.table) datanet[, split := if_else((hour(DateTime) >= 6) & (hour(DateTime) < 18), "Day", "Night")] </code> </pre> <P> 或者不使用任何 <code> if_else </code> </p> <pre> <code> datanet[, split := c("Night", "Day")[1 + ((hour(DateTime) >= 6) & (hour(DateTime) < 18))]] </code> </pre> </DIV>

编辑

登录后才能参与评论