代码之家 › 专栏 › 技术社区 › bumblebee

data.table语法中的计算[已关闭]

data.table r

bumblebee · 技术社区 · 6 年前

我想执行自加入 data.table

示例数据

active <- data.table(id=c(1,1,1,2,2,3), no=c(1,2,3,1,2,1), beg=as.POSIXct(c("2018-01-01   01:10:00","2018-01-01 01:30:00","2018-01-01 01:50:00","2018-01-01 01:30:00","2018-01-01 01:50:00","2018-01-01 01:50:00")), end=as.POSIXct(c("2018-01-01 01:20:00","2018-01-01 01:40:00","2018-01-01 02:00:00","2018-01-01 01:40:00","2018-01-01 02:00:00","2018-01-01 02:00:00")))

> active
   id no                 beg                 end
1:  1  1 2018-01-01 01:10:00 2018-01-01 01:20:00
2:  1  2 2018-01-01 01:30:00 2018-01-01 01:40:00
3:  1  3 2018-01-01 01:50:00 2018-01-01 02:00:00
4:  2  1 2018-01-01 01:30:00 2018-01-01 01:40:00
5:  2  2 2018-01-01 01:50:00 2018-01-01 02:00:00
6:  3  1 2018-01-01 01:50:00 2018-01-01 02:00:00

> res
   id no                ibeg                iend
1:  1  1 2018-01-01 01:20:00 2018-01-01 01:30:00
2:  1  2 2018-01-01 01:40:00 2018-01-01 01:50:00
3:  2  1 2018-01-01 01:40:00 2018-01-01 01:50:00

但我的问题是关于语法中的计算的更一般的问题:执行时

res <- active[active, .(id=x.id, ibeg=i.end, iend=x.beg), on=.(no=(no-1), id=id)]

on=.(no=no-1) 但是获取一条错误消息 column [no-1] cannot be found no-1 但是没有用。是否禁止计算 on=

1 回复 | 直到 6 年前

dww Jarretinha 6 年前

你可以用

inactive  = active[, .(no=no[-.N], ibeg=end[-.N], iend=beg[-1]), by=id]

#    id no                ibeg                iend
# 1:  1  1 2018-01-01 01:20:00 2018-01-01 01:30:00
# 2:  1  2 2018-01-01 01:40:00 2018-01-01 01:50:00
# 3:  2  1 2018-01-01 01:40:00 2018-01-01 01:50:00

推荐文章

Marco_CH · 根据动态相关的两个条件进行筛选

2 年前

Shubham · 如何在R中查找数据表的两个多类别列之间的差异/setdiff()

2 年前

mt1022 · 分组数据时的不同结果。以不同方式使用数字索引的表列

6 年前

shy zhan · 如何改变数据。有很多列的表?

6 年前

Brent Pease · 查找条件语句的最小值,其中条件也适用于之后的所有值

6 年前

Serhii · 标记数据中按组随机选择的N行。桌子

6 年前

T.Beil · 在数据表中选取均匀分布的样本

6 年前

89_Simple · 为每个组运行函数

6 年前

IceCreamToucan · 选择要保留/放入数据的组。桌子

6 年前

Valeria Lobos Ossandón · 使用R查找数据帧中其他数据帧的元素位置

6 年前