- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
if (!require("pacman")) install.packages("pacman")
pacman::p_load(tidyverse, lubridate)
# Example of sample dates - these are to be used to cross check if date exists within the range
Sample.Dates = tibble(
ID = "ID",
Round = 1:3,
Start.Date = dmy(c("03/12/2018","10/12/2018","17/12/2018")),
End.Date = dmy(c("09/12/2018","16/12/2018","23/12/2018")))
# Reference dates for a particular player - "John". Need to cross check the date against Sample.Dates and attach round, start and end date columns
Ref.Dates = tibble(
ID= "ID",
Date = seq.Date(ymd("2018-12-05"), ymd("2018-12-31") , by = "day"),
Player = "John",
Rows = row_number(Date))
# Function for checking if date exists within range and then returns the round, start and end date values
Dates.Check.YN.Func = function(x){
Date = x %>% pull(Date)
Cross.Check = Sample.Dates %>% rowwise()%>%
dplyr::mutate(Match = ifelse(between(Date, Start.Date, End.Date),1,0))%>%
filter(Match == 1)%>%
ungroup()%>%
select(-Match)
left_join(x, Cross.Check, by = "ID")
}
# Applying function to each row/date using nest()
Data.Nest = Ref.Dates %>%
nest(-Rows)%>%
mutate(out = map(data,Dates.Check.YN.Func)) %>%
unnest(out) %>%
select(-data)
现在这段代码可以正常工作了。然而,这只是一个虚拟数据集,实际上我想交叉检查超过 100,000 个日期。使用我的真实数据集执行此操作需要大约 30 分钟。搜索看看是否有人可以使用 tidyverse 解决方案(首选)或其他方式来加速我的代码。
最佳答案
自 v1.9.8 版(2016 年 11 月 25 日在 CRAN 上)起,data.table
已获得执行非等价连接的能力。
此处,非等值更新联接 用于附加列 Round
、Start.Date
和 End。从
。 Sample.Dates
到 Ref.Dates
的日期Ref.Dates
通过引用更新,即不复制整个数据对象。
library(data.table)
# coerce to data.table class
setDT(Ref.Dates)[
# perform update join
setDT(Sample.Dates), on = .(ID, Date >= Start.Date, Date <= End.Date),
`:=`(Round = Round, Start.Date = Start.Date, End.Date = End.Date)]
Ref.Dates
ID Date Player Rows Round Start.Date End.Date
1: ID 2018-12-05 John 1 1 2018-12-03 2018-12-09
2: ID 2018-12-06 John 2 1 2018-12-03 2018-12-09
3: ID 2018-12-07 John 3 1 2018-12-03 2018-12-09
4: ID 2018-12-08 John 4 1 2018-12-03 2018-12-09
5: ID 2018-12-09 John 5 1 2018-12-03 2018-12-09
6: ID 2018-12-10 John 6 2 2018-12-10 2018-12-16
7: ID 2018-12-11 John 7 2 2018-12-10 2018-12-16
8: ID 2018-12-12 John 8 2 2018-12-10 2018-12-16
9: ID 2018-12-13 John 9 2 2018-12-10 2018-12-16
10: ID 2018-12-14 John 10 2 2018-12-10 2018-12-16
11: ID 2018-12-15 John 11 2 2018-12-10 2018-12-16
12: ID 2018-12-16 John 12 2 2018-12-10 2018-12-16
13: ID 2018-12-17 John 13 3 2018-12-17 2018-12-23
14: ID 2018-12-18 John 14 3 2018-12-17 2018-12-23
15: ID 2018-12-19 John 15 3 2018-12-17 2018-12-23
16: ID 2018-12-20 John 16 3 2018-12-17 2018-12-23
17: ID 2018-12-21 John 17 3 2018-12-17 2018-12-23
18: ID 2018-12-22 John 18 3 2018-12-17 2018-12-23
19: ID 2018-12-23 John 19 3 2018-12-17 2018-12-23
20: ID 2018-12-24 John 20 NA <NA> <NA>
21: ID 2018-12-25 John 21 NA <NA> <NA>
22: ID 2018-12-26 John 22 NA <NA> <NA>
23: ID 2018-12-27 John 23 NA <NA> <NA>
24: ID 2018-12-28 John 24 NA <NA> <NA>
25: ID 2018-12-29 John 25 NA <NA> <NA>
26: ID 2018-12-30 John 26 NA <NA> <NA>
27: ID 2018-12-31 John 27 NA <NA> <NA>
ID Date Player Rows Round Start.Date End.Date
关于r - 检查一个数据框中的日期是否在另一个数据框中的日期范围内,并在为真时返回行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/53853400/
按照目前的情况,这个问题不适合我们的问答形式。我们希望答案得到事实、引用或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
在编码时,我问了自己这个问题: 这样更快吗: if(false) return true; else return false; 比这个? if(false) return true; return
如何在逻辑条件下进行“返回”? 在这样的情况下这会很有用 checkConfig() || return false; var iNeedThis=doSomething() || return fa
这是我的正则表达式 demo 如问题所述: 如果第一个数字是 1 则返回 1 但如果是 145 则返回 145 但如果是 133 则返回 133 样本数据a: K'8134567 K'81345678
在代码高尔夫问答部分查看谜题和答案时,我遇到了 this solution返回 1 的最长和最晦涩的方法 引用答案, int foo(void) { return! 0; } int bar(
我想在下面返回 JSON。 { "name": "jackie" } postman 给我错误。说明 Unexpected 'n' 这里是 Spring Boot 的新手。 1日龄。有没有正确的方法来
只要“is”返回 True,“==”不应该返回 True 吗? In [101]: np.NAN is np.nan is np.NaN Out[101]: True In [102]: np.NAN
我需要获取所有在 6 号或 7 号房间或根本不在任何房间的学生的详细信息。如果他们在其他房间,简单地说,我不希望有那个记录。 我的架构是: students(roll_no, name,class,.
我有一个表单,我将它发送到 php 以通过 ajax 插入到 mysql 数据库中。一切顺利,php 返回 "true" 值,但在 ajax 中它显示 false 消息。 在这里你可以查看php代码:
我在 Kotlin 中遇到了一个非常奇怪的无法解释的值比较问题,以下代码打印 假 data class Foo ( val a: Byte ) fun main() { val NUM
请注意,这并非特定于 Protractor。问题在于 Angular 2 的内置 Testability service Protractor 碰巧使用。 Protractor 调用 Testabil
在调试窗口中,以下表达式均返回 1。 Application.WorksheetFunction.CountA(Cells(4 + (i - 1) * rows_per_record, 28) & "
我在本地使用 jsonplaceholder ( http://jsonplaceholder.typicode.com/)。我正在通过 extjs rest 代理测试我的 GET 和 POST 调用
这是 Postman 为成功调用我的页面而提供的(修改后的)代码段。 var client = new RestClient("http://sub.example.com/wp-json/wp/v2
这个问题在这里已经有了答案: What to do with mysqli problems? Errors like mysqli_fetch_array(): Argument #1 must
我想我对 C 命令行参数有点生疏。我查看了我的一些旧代码,但无论这个版本是什么,都会出现段错误。 运行方式是 ./foo -n num(其中 num 是用户在命令行中输入的数字) 但不知何故它不起作用
我已经编写了一个类来处理命名管道连接,如果我创建了一个实例,关闭它,然后尝试创建另一个实例,调用 CreateFile() 返回 INVALID_HANDLE_VALUE,并且 GetLastErro
即使 is_writable() 返回 true,我也无法写入文件。当然,该文件存在并且显然是可读的。这是代码: $file = "data"; echo file_get_contents($fil
下面代码中的变量 $response 为 NULL,尽管它应该是 SOAP 请求的值。 (潮汐列表)。当我调用 $client->__getLastResponse() 时,我从 SOAP 服务获得了
我一直在网上的不同论坛上搜索答案,但似乎没有与我的情况相符的... 我正在使用 Windows 7,VS2010。 我有一个使用定时器来调用任务栏刷新功能的应用程序。在该任务栏函数中包含对 LoadI
我是一名优秀的程序员,十分优秀!