使用R根据值的变化从数据框中提取多行

Question

我有一个温度随时间变化的数据框。我想确定温度升高和降低 3 的 第一个实例，并提取这些行以随时间放入一个新数据帧和一个新列1 和 0 表示开和关。请看下面的例子：

原始数据框：

Date        Time        Temp
2020-01-01  18:00:00    2
2020-01-01  18:00:10    2
2020-01-01  18:00:20    2
2020-01-01  18:00:30    2
2020-01-01  18:00:40    2
2020-01-01  18:00:50    2
2020-01-01  18:01:00    6
2020-01-01  18:01:10    10
2020-01-01  18:01:20    12
2020-01-01  18:01:30    12
2020-01-01  18:01:40    12
2020-01-01  18:01:50    12
2020-01-01  18:02:00    12
2020-01-01  18:02:10    12
2020-01-01  18:02:20    12
2020-01-01  18:02:30    7
2020-01-01  18:02:40    5
2020-01-01  18:02:50    3
2020-01-01  18:03:00    2
2020-01-01  18:03:10    2
2020-01-01  18:03:20    2
2020-01-01  18:03:30    2
2020-01-01  18:03:40    2
2020-01-01  18:03:50    2
2020-01-01  18:04:00    2

新数据框：

Date        Time        On_Off
2020-01-01  18:01:00    1
2020-01-01  18:02:30    0

为此，我认为我需要创建一个空数据框，然后使用从原始数据中提取的时间填充它。谢谢！

Answer 1

您可以使用来自dplyr 的lead 和lag 来检查Temp 和top_n（也来自dplyr）的变化，以获取第一个实例。

df %>%
  mutate(On_Off = case_when(Temp > lag(Temp) ~ "1",
                            Temp < lag(Temp) ~ "0",
                            TRUE ~ "No_Change")) %>% 
  filter(Temp > lag(Temp, default = 1) + 3 | Temp < lag(Temp) - 3) %>% 
  group_by(On_Off) %>% 
  top_n(1, wt = desc(Time)) %>% 
  select(Date, Time, On_Off)
# A tibble: 2 x 3
# Groups:   On_Off [2]
  Date       Time     On_Off
  <date>     <time>   <chr> 
1 2020-01-01 18:01:00 1     
2 2020-01-01 18:02:30 0