作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试处理一组润滑间隔并确定日期是否在该组的任何成员内。
我的时间间隔不重叠,但最好给出一般答案。)
在开始数据分析之前,我不知道那组间隔中有多少个间隔:
library(lubridate)
#Create 4 dates; 2 pairs
start1 <-ymd("2015-01-01")
stop1 <-ymd("2015-01-08")
start2 <-ymd("2015-02-01")
stop2 <-ymd("2015-02-08")
#Make 2 non-overlapping intervals
interval1 <-start1%--%stop1
interval2 <-start2%--%stop2
#two more dates, each within an interval
day1 <-ymd("2015-01-04")
day2 <-ymd("2015-02-04")
#now test the new dates against the intervals.
day1 %within%interval1 #TRUE
day2 %within%interval1 #FALSE
day2 %within%interval2 #TRUE
day2 %within%c(interval1, interval2) #(FALSE, TRUE)
#Don't Run:
INTERVALS <-c(interval1, interval2, ... intervalN)
day2 %within% INTERVALS
最佳答案
您可以矢量化所有内容,然后使用 lapply
使用 %within%
对于您要检查的每一天:
library(lubridate)
start <-ymd("2015-01-01", "2015-02-01")
stop <-ymd("2015-01-08", "2015-02-08")
days <-ymd("2015-01-04", "2015-02-04")
lapply(days, `%within%`, start %--% stop)
#> [[1]]
#> [1] TRUE FALSE
#>
#> [[2]]
#> [1] FALSE TRUE
days
的每个元素的列表是否在每个区间。检查
days
的每个元素是否在任何区间内,为
*apply
写一个匿名函数:
sapply(days, function(x){any(x %within% interval(start, stop))})
## [1] TRUE TRUE
关于Rstats lubridate ... 区间向量,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41905358/
我是脚本和 R 的新手。 在 Windows cmd.exe 中,我可以通过以下方式在域上执行 NSLOOKUP: nslookup www.google.com 我有一个域名数据集,我想在 R 中的
我正在尝试处理一组润滑间隔并确定日期是否在该组的任何成员内。 我的时间间隔不重叠,但最好给出一般答案。) 在开始数据分析之前,我不知道那组间隔中有多少个间隔: library(lubridate) #
我正在尝试编写一个函数,该函数将接受一个字符串并用另一个字符替换一个字符,但我希望它返回替换该字符的每个排列。我想用 l 替换每个 i 但我不想像在 gsub 中那样在全局范围内这样做,我不想像在 s
如何对已经聚合的数据进行正确的median计算? 例如,如果我有一个如下所示的数据框: > df df # A tibble: 4 × 3 name count avg 1
我有一个数据框,其中每一行代表特定日期特定类别的数据: set.seed(1) k % ##Give me only rows for 'name' on the current ro
我是一名优秀的程序员,十分优秀!