- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的目标是将基于时间的两个数据表与 dplyr
或 data.table
连接起来,特别是在事件发生之前和之后立即获取记录。
在示例数据中,这种情况下的事件是踏板车旅行。以下是四次旅行 - 两次由踏板车 1 进行,两次由踏板车 2 进行。
> testScooter
start end id
1: 2018-01-18 22:19:13 2018-01-18 22:26:31 1
2: 2018-01-18 23:29:22 2018-01-18 23:37:53 1
3: 2018-01-18 00:22:02 2018-01-18 00:29:21 2
4: 2018-01-18 00:37:52 2018-01-18 01:06:53 2
id
s 匹配,当旅行正在进行时,踏板车被标记为
no
。
> intervals
id time available charge
1 1 2018-01-18 21:31:07 yes 83
2 1 2018-01-18 21:41:07 yes 83
3 1 2018-01-18 21:51:07 yes 83
4 1 2018-01-18 22:01:07 yes 83
5 1 2018-01-18 22:11:07 yes 83
6 1 2018-01-18 22:21:07 no 83
7 1 2018-01-18 22:31:07 yes 81
8 1 2018-01-18 22:41:08 yes 81
9 1 2018-01-18 22:51:08 yes 81
10 1 2018-01-18 23:01:08 yes 81
11 1 2018-01-18 23:11:08 yes 81
12 1 2018-01-18 23:21:11 yes 81
13 1 2018-01-18 23:31:07 no 81
14 1 2018-01-18 23:41:09 yes 79
15 1 2018-01-18 23:51:07 yes 79
16 2 2018-01-18 00:01:06 yes 84
17 2 2018-01-18 00:11:06 yes 84
18 2 2018-01-18 00:21:06 yes 84
19 2 2018-01-18 00:31:05 yes 80
20 2 2018-01-18 00:41:06 no 80
21 2 2018-01-18 00:51:06 no 80
22 2 2018-01-18 01:01:06 no 80
23 2 2018-01-18 01:11:05 yes 80
24 2 2018-01-18 01:21:05 yes 80
25 2 2018-01-18 01:31:05 yes 80
> output
start end id startCharge endCharge
1: 2018-01-18 22:19:13 2018-01-18 22:26:31 1 83 81
2: 2018-01-18 23:29:22 2018-01-18 23:37:53 1 81 79
3: 2018-01-18 00:22:02 2018-01-18 00:29:21 2 84 80
4: 2018-01-18 00:37:52 2018-01-18 01:06:53 2 80 80
lubridate::new_interval()
包中的
roll='nearest'
或
data.table
但我不确定从哪里开始。
# Here is the sample data
library(data.table)
testScooter <- setDT(
structure(list(start = structure(c(1516313953, 1516318162, 1516234922,
1516235872), tzone = "", class = c("POSIXct", "POSIXt")), end = structure(c(1516314391,
1516318673, 1516235361, 1516237613), tzone = "", class = c("POSIXct",
"POSIXt")), id = c(1, 1, 2, 2)), .Names = c("start", "end", "id"
), row.names = c(NA, -4L), class = "data.frame"))
intervals <-
structure(list(id = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L),
time = structure(c(1516311067, 1516311667, 1516312267, 1516312867,
1516313467, 1516314067, 1516314667, 1516315268, 1516315868,
1516316468, 1516317068, 1516317671, 1516318267, 1516318869,
1516319467, 1516233666, 1516234266, 1516234866, 1516235465,
1516236066, 1516236666, 1516237266, 1516237865, 1516238465,
1516239065), class = c("POSIXct", "POSIXt"), tzone = "UTC"),
available = c("yes", "yes", "yes", "yes", "yes", "no", "yes",
"yes", "yes", "yes", "yes", "yes", "no", "yes", "yes", "yes",
"yes", "yes", "yes", "no", "no", "no", "yes", "yes", "yes"
), charge = c(83L, 83L, 83L, 83L, 83L, 83L, 81L, 81L, 81L,
81L, 81L, 81L, 81L, 79L, 79L, 84L, 84L, 84L, 80L, 80L, 80L,
80L, 80L, 80L, 80L)), .Names = c("id", "time", "available",
"charge"), row.names = c(NA, -25L), class = "data.frame")
最佳答案
新答案:
您可以使用双滚动连接来做到这一点:
testScooter[, startCharge := intervals[testScooter, on = .(id, time = start), roll = Inf, x.charge]
][, endCharge := intervals[testScooter, on = .(id, time = end), roll = -Inf, x.charge]][]
start end id startCharge endCharge
1: 2018-01-18 23:19:13 2018-01-18 23:26:31 1 83 81
2: 2018-01-19 00:29:22 2018-01-19 00:37:53 1 81 79
3: 2018-01-18 01:22:02 2018-01-18 01:29:21 2 84 80
4: 2018-01-18 01:37:52 2018-01-18 02:06:53 2 80 80
roll = Inf
在 intervals
start
中的最后一个观察
roll = -Inf
在 intervals
end
中的第一个观察值
testScooter[intervals, on = .(id, start = time), roll = -Inf, startCharge := i.charge
][intervals, on = .(id, end = time), roll = Inf, endCharge := i.charge][]
data.table
返回
i
中的最后一个匹配项,旧答案就是这种情况。使用
verbose = TRUE
运行代码时,请查看以下输出:
> testScooter[intervals, on = .(id, start = time), roll = -Inf, startCharge := i.charge, verbose = TRUE][]
Calculated ad hoc index in 0 secs
Starting bmerge ...done in 0 secs
Detected that j uses these columns: startCharge,i.charge
Assigning to 16 row subset of 4 rows
start end id startCharge
1: 2018-01-18 22:19:13 2018-01-18 22:26:31 1 83
2: 2018-01-18 23:29:22 2018-01-18 23:37:53 1 81
3: 2018-01-18 00:22:02 2018-01-18 00:29:21 2 84
4: 2018-01-18 00:37:52 2018-01-18 01:06:53 2 80
> data.table(a = 1:2)[data.table(a = c(2L, 2L), v = 3:4), on=.(a), v := i.v, verbose = TRUE][]
Calculated ad hoc index in 0 secs
Starting bmerge ...done in 0 secs
Detected that j uses these columns: v,i.v
Assigning to 2 row subset of 2 rows
a v
1: 1 NA
2: 2 4
testScooter <- structure(list(start = structure(c(1516313953, 1516318162, 1516234922, 1516235872), tzone = "UTC", class = c("POSIXct", "POSIXt")),
end = structure(c(1516314391, 1516318673, 1516235361, 1516237613), tzone = "UTC", class = c("POSIXct", "POSIXt")),
id = c(1L, 1L, 2L, 2L)),
.Names = c("start", "end", "id"), row.names = c(NA, -4L), class = "data.frame")
setDT(testScooter)
intervals <- structure(list(id = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L),
time = structure(c(1516311067, 1516311667, 1516312267, 1516312867, 1516313467, 1516314067, 1516314667, 1516315268, 1516315868, 1516316468, 1516317068, 1516317671, 1516318267, 1516318869, 1516319467, 1516233666, 1516234266, 1516234866, 1516235465, 1516236066, 1516236666, 1516237266, 1516237865, 1516238465, 1516239065), class = c("POSIXct", "POSIXt"), tzone = "UTC"),
available = c("yes", "yes", "yes", "yes", "yes", "no", "yes", "yes", "yes", "yes", "yes", "yes", "no", "yes", "yes", "yes", "yes", "yes", "yes", "no", "no", "no", "yes", "yes", "yes"),
charge = c(83L, 83L, 83L, 83L, 83L, 83L, 81L, 81L, 81L, 81L, 81L, 81L, 81L, 79L, 79L, 84L, 84L, 84L, 80L, 80L, 80L, 80L, 80L, 80L, 80L)),
.Names = c("id", "time", "available", "charge"), row.names = c(NA, -25L), class = "data.frame")
setDT(intervals)
关于r - 匹配时间范围之前和之后的记录,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49726148/
我不能解决这个问题。和标题说的差不多…… 如果其他两个范围/列中有“否”,我如何获得范围或列的平均值? 换句话说,我想计算 A 列的平均值,并且我有两列询问是/否问题(B 列和 C 列)。我只希望 B
我知道 python 2to3 将所有 xrange 更改为 range 我没有发现任何问题。我的问题是关于它如何将 range(...) 更改为 list(range(...)) :它是愚蠢的,只是
我有一个 Primefaces JSF 项目,并且我的 Bean 注释有以下内容: @Named("reportTabBean") @SessionScoped public class Report
在 rails3 中,我在模型中制作了相同的范围。例如 class Common ?" , at) } end 我想将公共(public)范围拆分为 lib 中的模块。所以我试试这个。 module
我需要在另一个 View 范围 bean 中使用保存在 View 范围 bean 中的一些数据。 @ManagedBean @ViewScoped public class Attivita impl
为什么下面的代码输出4?谁能给我推荐一篇好文章来深入学习 javascript 范围。 这段代码返回4,但我不明白为什么? (function f(){ return f(); functio
我有一个与此结构类似的脚本 $(function(){ var someVariable; function doSomething(){ //here } $('#som
我刚刚开始学习 Jquery,但这些示例对我帮助不大...... 现在,以下代码发生的情况是,我有 4 个表单,我使用每个表单的链接在它们之间进行切换。但我不知道如何在第一个函数中获取变量“postO
为什么当我这样做时: function Dog(){ this.firstName = 'scrappy'; } Dog.firstName 未定义? 但是我可以这样做: Dog.firstNa
我想打印文本文件 text.txt 的选定部分,其中包含: tickme 1.1(no.3) lesson1-bases lesson2-advancedfurther para:using the
我正在编写一些 JavaScript 代码。我对这个关键字有点困惑。如何在 dataReceivedHandler 函数中访问 logger 变量? MyClass: { logger: nu
我有这个代码: Public Sub test() Dim Tgt As Range Set Tgt = Range("A1") End Sub 我想更改当前为“A1”的 Tgt 的引
我正忙于此工作,以为我会把它放在我们那里。 该数字必须是最多3个单位和最多5个小数位的数字,等等。 有效的 999.99999 99.9 9 0.99999 0 无效的 -0.1 999.123456
覆盖代码时: @Override public void open(ExecutionContext executionContext) { super.open(executio
我想使用 preg_match 来匹配数字 1 - 21。我如何使用 preg_match 来做到这一点?如果数字大于 21,我不想匹配任何东西。 example preg_match('([0-9]
根据docs range函数有四种形式: (range) 0 - 无穷大 (range end) 0 - 结束 (range start end)开始 - 结束 (range start end st
我知道有一个UISlider,但是有人已经制作了RangeSlider(用两个拇指吗?)或者知道如何扩展 uislider? 最佳答案 我认为你不能直接扩展 UISlider,你可能需要扩展 UICo
我正在尝试将范围转换为列表。 nums = [] for x in range (9000, 9004): nums.append(x) print nums 输出 [9000] [9
请注意:此问题是由于在运行我的修饰方法时使用了GraphQL解析器。这意味着this的范围为undefined。但是,该问题的基础知识对于装饰者遇到问题的任何人都是有用的。 这是我想使用的基本装饰器(
我正在尝试创建一个工具来从网页上抓取信息(是的,我有权限)。 到目前为止,我一直在使用 Node.js 结合 requests 和 Cheerio 来拉取页面,然后根据 CSS 选择器查找信息。我已经
我是一名优秀的程序员,十分优秀!