R使用dplyr選擇最小值大於零的行

Question

嘗試按x對行進行分組並選擇最小值大於零的行

 x  Start Time      End Time        Time_Diff
 A  01-01-17 0:14   01-01-17 0:14   3
 A  01-01-17 0:14   01-01-17 21:51  77817
 B  01-01-17 15:59  01-01-17 7:22   -31042
 B  01-01-17 15:59  01-01-17 16:25  1574

嘗試：

df1 <- df %>%
    group_by(x) %>%
    slice(which.min(as.numeric(Time_Diff)))

但是，它返回負值。 這是我期望的解決方案。 任何幫助將不勝感激。

 x  Start Time      End Time        Time_Diff 
 A  01-01-17 0:14   01-01-17 0:14   3
 B  01-01-17 15:59  01-01-17 16:25  1574

Answer 1

我認為這也有效

df2 <- df %>%
  group_by(x) %>%
  filter( Time_Diff > 0 ) %>%
  arrange(desc(as.numeric(Time_Diff))) %>%
  slice(n = n())