[问题] 如何将前n小时资料另存一个字段

楼主: studioA (understand?)   2022-07-21 11:17:08
[问题类型]:
程式咨询(我想用R 做某件事情,但是我不知道要怎么用R 写出来)
[软件熟悉度]:
请把以下不需要的部份删除
新手(没写过程式,R 是我的第一次)
[问题叙述]:
我有一组data.table数据,格式如下, 我想新增1个字段RH03,摆放RH值前3小时的数据,
我用dplyr 的 mutate 但出现错误讯息,请问要如何修正?
Data %>% mutate("RH03" =RH[-3])
Date hour RH
2022-07-01 1 71
2022-07-01 2 72
2022-07-01 3 77
2022-07-01 4 78
2022-07-01 5 83
2022-07-01 6 NA
2022-07-01 7 78
2022-07-01 8 70
2022-07-01 9 65
2022-07-01 10 60
2022-07-01 11 58
2022-07-01 12 55
2022-07-01 13 57
2022-07-01 14 58
2022-07-01 15 61
2022-07-01 16 79
2022-07-01 17 73
2022-07-01 18 66
2022-07-01 19 65
2022-07-01 20 72
2022-07-01 21 74
2022-07-01 22 74
2022-07-01 23 78
2022-07-01 24 81
[程式范例]:
[环境叙述]:
请提供 sessionInfo() 的输出结果,
里面含有所有你使用的作业系统、R 的版本和套件版本资讯,
让版友更容易找出错误
[关键字]:
选择性,也许未来有用
作者: lycantrope (阿宽)   2022-07-21 11:42:00
可以用lag(RH, n=3L)来取得位移后的资料,反之用lead
作者: wayturn (岳)   2022-07-21 19:56:00
若不能保证每小时都有RH、资料集有排序,建议是前两栏转成时间格式>>判断3小时是否资料>>新字段赋予
作者: Gjerry   2022-07-22 01:10:00
Data[, tmp := hour - 3]merge(Data[, -"tmp"], Data[, -"hour"], by.x = "hour",by.y = "tmp", all = T)然后再清理一下表格移除不需要的NA就好了
作者: fox1375 (阿吠)   2022-07-22 02:30:00
用ifelse就可以了,不过如果不是前3小时要摆多少,0吗?Data %>% mutate(RH03 = ifelse(hour <= 3, RH, 0))NA就Data %>% mutate(RH03 = ifelse(hour <= 3, RH, NA))
作者: hohiyan (海洋)   2022-07-22 03:00:00
data.table的话 df[, RH03 := shift(RH, 3L, 0, "lag")]如果前3个小时不填0而是NA,就把0改成NA即可https://pastebin.com/3EGhJ0dL
楼主: studioA (understand?)   2022-07-22 11:56:00
感谢解答疑惑

Links booklink

Contact Us: admin [ a t ] ucptt.com