- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个大型(20,000 obs)data.frame,其中包含每小时值并按唯一 ID 分组。我还有一个日期列表(每个日期都出现在 data.frame 中)。我正在尝试将日期与 data.frame 匹配,然后从匹配日期提取 + 或 - 某个时间间隔之间的日期时间。比如在下面的data.frame中:
setAs("character","myDate", function(from) as.POSIXct(from, "%m/%e/%Y %H:%M", tz="UTC"))
# previous function formats date input as UTC
df <- read.table(textConnection("datetimeUTC id value
'5/1/2013 5:00' 153 0.53
'5/1/2013 6:00' 153 0.46
'5/1/2013 7:00' 153 0.53
'5/1/2013 8:00' 153 0.46
'5/1/2013 9:00' 153 0.44
'5/1/2013 10:00' 153 0.48
'5/1/2013 11:00' 153 0.49
'5/1/2013 12:00' 153 0.49
'5/1/2013 13:00' 153 0.51
'5/1/2013 14:00' 153 0.53
'11/24/2013 9:00' 154 0.45
'11/24/2013 10:00' 154 0.46
'11/24/2013 11:00' 154 0.49
'11/24/2013 12:00' 154 0.55
'11/24/2013 13:00' 154 0.61
'11/24/2013 14:00' 154 0.7
'11/24/2013 15:00' 154 0.74
'11/24/2013 16:00' 154 0.78
'11/24/2013 17:00' 154 0.77
'11/24/2013 18:00' 154 0.79
'8/2/2015 1:00' 240 0.2
'8/2/2015 2:00' 240 0.2
'8/2/2015 3:00' 240 0.2
'8/2/2015 4:00' 240 0.22
'8/2/2015 5:00' 240 0.22
'8/2/2015 6:00' 240 0.27
'8/2/2015 7:00' 240 0.23
'8/2/2015 8:00' 240 0.21
'8/2/2015 9:00' 240 0.22
'8/2/2015 10:00' 240 0.22
'8/2/2015 11:00' 240 0.21
'8/2/2015 12:00' 240 0.21
'8/2/2015 13:00' 240 0.21
'8/2/2015 14:00' 240 0.22
'8/2/2015 15:00' 240 0.24
'8/2/2015 16:00' 240 0.25
'8/2/2015 17:00' 240 0.12
'8/2/2015 18:00' 240 0.32
"), header=TRUE, colClasses=c("myDate", "character", "numeric"))
对于每个 id,我想从这个键中提取匹配日期时间之前或之后 2 小时的所有观察结果:
key <-read.table(textConnection("
datetimeUTC id
'5/1/2013 9:00' 153
'11/24/2013 14:00' 154
'8/2/2015 5:00' 240
'8/2/2015 15:00' 240"), header=TRUE, colClasses=c("myDate", "character"))
所需的结果如下所示:
result <- read.table(textConnection("datetimeUTC id value
'5/1/2013 7:00' 153 0.53
'5/1/2013 8:00' 153 0.46
'5/1/2013 9:00' 153 0.44
'5/1/2013 10:00' 153 0.48
'5/1/2013 11:00' 153 0.49
'11/24/2013 12:00' 154 0.55
'11/24/2013 13:00' 154 0.61
'11/24/2013 14:00' 154 0.7
'11/24/2013 15:00' 154 0.74
'11/24/2013 16:00' 154 0.78
'8/2/2015 3:00' 240 0.2
'8/2/2015 4:00' 240 0.22
'8/2/2015 5:00' 240 0.22
'8/2/2015 6:00' 240 0.27
'8/2/2015 7:00' 240 0.23
'8/2/2015 13:00' 240 0.21
'8/2/2015 14:00' 240 0.22
'8/2/2015 15:00' 240 0.24
'8/2/2015 16:00' 240 0.25
'8/2/2015 17:00' 240 0.12
"), header=TRUE, colClasses=c("myDate", "character", "numeric"))
似乎是一项简单的任务,但我似乎无法得到我想要的。我尝试过的几件事。
result <-df[which(df$id == key$id &(df$datetimeUTC >= key$datetimeUTC -2*60*60 |df$datetimeUTC <= key$datetimeUTC + 2*60*60 )),]
library(data.table)
dt <- setDT(df)
dt[dt$datetimeUTC %between% c(dt$datetimeUTC - 2*60*60,dt$datetimeUTC + 2*60*60) ]
最佳答案
几个data.table
给你的解决方案
1.笛卡尔连接
全部加入,然后过滤掉你不想要的
library(data.table)
dt <- as.data.table(df)
dt_key <- as.data.table(key)
dt_join <- dt[ dt_key, on="id", allow.cartesian=T][difftime(i.datetimeUTC, datetimeUTC, units="hours") <= 2 & difftime(i.datetimeUTC, datetimeUTC, units="hours") >= -2]
# datetimeUTC id value i.datetimeUTC
#1: 2013-05-01 07:00:00 153 0.53 2013-05-01 09:00:00
#2: 2013-05-01 08:00:00 153 0.46 2013-05-01 09:00:00
#3: 2013-05-01 09:00:00 153 0.44 2013-05-01 09:00:00
#4: 2013-05-01 10:00:00 153 0.48 2013-05-01 09:00:00
... etc
<强>2。每个 I 的条件
利用an answer对于我之前的一个问题,在 j
中指定 EACHI
在连接中必须满足的条件。
dt[ dt_key,
{ idx = difftime(i.datetimeUTC, datetimeUTC, units="hours") <= 2 & difftime(i.datetimeUTC, datetimeUTC, units="hours") >= -2
.(datetime = datetimeUTC[idx],
value = value[idx])
},
on=c("id"),
by=.EACHI]
关于r - 子集 data.frame 基于时间间隔 + 或 - 日期列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35565149/
我试图根据表格看起来像这样的状态代码来查找表格中的空白。 状态表: StateID (PK) | Code -------------------- 1 | AK 2
我有一个配对字符串列表。我想找到两个字母之间的长度/间隔。到目前为止,我可以使用找到有序字母的间隔 alpha =["AM", "KQ", "ZN", "XM", "UK"] leng
我有一个配对字符串列表。我想找到两个字母之间的长度/间隔。到目前为止,我可以使用找到有序字母的间隔 alpha =["AM", "KQ", "ZN", "XM", "UK"] leng
我正在努力弄清楚如何将时间选择器的下拉间隔设置为 15 分钟间隔。默认为 30 分钟 atm。让它工作的正确调用/符号是什么?我已经尝试了很多将它们放入 '' 的变体,但没有任何进展。谢谢! $
假设我有 table teach_subject(teacher_id, subject_id, min_grade_of_school, max_grade_of_school, color_in_
我有下面的图像,我试图以 3 秒的间隔一张一张地显示它们,但我无法让它工作。它继续停留在 0 并且不显示图像,帮助会很好: JavaScript: window.animate = functio
我认为这个问题类似于加权间隔调度问题,但略有不同。 假设您有一个具有开始时间和结束时间的类次 s,该类次从 s.start 开始有 n 个空位到s.end。时隙是从 s.start 到 s.end 的
我试图将一个 GeometryReader 作为按钮推到屏幕底部,但 Spacer 在这里不起作用...... 这个想法是让应用程序响应所有屏幕尺寸。 VStack { GeometryRea
我问了一个相关问题 here但意识到我在计算这个复杂的度量时花费了太多时间(目标是与随机化测试一起使用,所以速度是一个问题)。所以我决定放弃权重,只使用两个度量之间的最小距离。所以这里我有 2 个向量
我最近成立 healthcheck s 在我的 docker-compose配置。 它做得很好,我喜欢它。下面是一个典型的例子: services: app: healthcheck:
我正在 Cocoa 中使用如下设置的 NSTimer 运行 mainLoop: mainLoopTimer = [NSTimer scheduledTimerWithTimeInter
目前正在开发家庭自动化应用程序,其中有事件 API 可以在事件被触发时为我提供事件。但我想持续运行 API,以便跟踪在整个应用程序中触发的事件。还有一个主页,我在其中显示曾经发生的事件。它是一个简单的
我有一个查询应该是这样的要求: { "size": 0, "_source": [ "dateCreated" ], "query": { "bool": {
我有一个 UNIX 格式的时间字符串。我需要将该字符串四舍五入到最接近的 30 分钟间隔。 例如:我的时间是上午 9:20,而不是应该四舍五入到上午 9:30。 如果分钟数大于 30,例如上午 9:4
我有网络调用,我想定期调用它。我只想将运算符 Interval 与 flatMap 一起使用,但在间隔线程上。你能解释一下这种情况吗?我知道Interval只使用一个线程,任务是按顺序处理的。 我有
我在我的 iOS 应用程序中使用了 NSTimer,但由于 SetNeedsDisplay,我没有得到我想要的结果。 我做了一些研究并找到了 CADisplayLink,它为我提供了我想要的动画结果。
我需要通过给出值数组来生成 map 上图例的值。Java 库中是否有函数可以从值数组和计数值生成范围或区间?像这样的东西: Integer[] getIntervals(Number[] values
我的函数中有以下代码,我试图从数据库中获取参数MAX_FAILED_ATTEMPT,并且基于此,如果检查失败,我将发送警报。当前代码将尝试从 MAX_FIELD_ATTEMPT 获取值并立即依次进行检
我在这里要做的是像 Windows XP 上的那样放下一个轨迹栏来更改分辨率:( http://puu.sh/7Li5h.png ) 我想设置特定的间隔/增量值,如上图所示。目前,实际栏下方的线条已经
是否可以停止当前作为 setInterval 运行的函数? 这是我的代码: 这是我调用的函数 function pull_light_status (lights_array) { $.get
我是一名优秀的程序员,十分优秀!