根据另一列的最大值（dplyr::group_by）有条件地过滤组的元素

Question

df <- read.csv("http://www.sharecsv.com/dl/da89d0f973c81ad8c0ff4bcb0e7293b0/testdata.csv")
df %>% dplyr::group_by(TOF)

我想查看重复的TOF值。 每当发现重复值（换句话说，属于同一 dplyr::group 的TOF值）时，我想保留那些满足以下条件的值：

intFT > max(intFT) * 0.1 ### this condition is valid within-group, i.e. max(intFT) refers to the highest intFT in a certain TOF group grouped by dplyr::group_by

此外，在每个TOF组中，只应保留具有最高intFT前三个元素。

NA值不应该被删除。

这将返回一个不正确的解决方案：

df %>% dplyr::group_by(TOF) %>% filter(intFT > max(intFT) * 0.1)

Answer 1

我没有你的数据，但这样的事情可以工作

df %>%
  dplyr::group_by(TOF) %>% 
  add_tally %>% 
  mutate(remove_it = if_else(n > 2 | intFT < max(intFT) * 0.1),"yes","no") %>% 
  filter(remove_it == "no") %>% 
  top_n(3)