Question

如何对从满足条件的变量的开始到第一次出现的时间序列进行子集化？

<input>

例如，从tribble( ~t, ~x, ~y, as.POSIXct(strptime("2011-03-27 01:30:00", "%Y-%m-%d %H:%M:%S")), -1, 1, as.POSIXct(strptime("2011-03-27 01:30:01", "%Y-%m-%d %H:%M:%S")), -5, 2, as.POSIXct(strptime("2011-03-27 03:45:00", "%Y-%m-%d %H:%M:%S")), -3, 5, as.POSIXct(strptime("2011-03-27 04:20:00", "%Y-%m-%d %H:%M:%S")), -8, 3, as.POSIXct(strptime("2011-03-27 04:25:00", "%Y-%m-%d %H:%M:%S")), -2, 8 )开始到第一次出现的所有行（期望样本数据的前三行）。

h3rm4ns解决方案

更简单的情况是不包括匹配条件的第一行：

y > 4

%>% filter(cumsum(y > 4) == 0)将为false，等于R中的y > 4，因此0将返回cumsum == 0（并因此过滤）所有行，直至第一行匹配TRUE，因此会在总和中添加y > 4。

要让它包含匹配的行，我们另外1。

Answer 1

您可以执行以下操作：

df %>% filter(!cumsum(lag(y, default = 0) > 4))

结果：

# A tibble: 3 x 3
                    t     x     y
               <dttm> <dbl> <dbl>
1 2011-03-27 01:30:00    -1     1
2 2011-03-27 01:30:01    -5     2
3 2011-03-27 03:45:00    -3     5

R / tibble - 满足可变条件的子集时间序列？

1 个答案: