R语言分组排序筛选后输出

如图，有一个数据框，现在INPUT_FID是1~425，我想每组按照DISTANCE排序，抽取每组DISTANCE最小的前50个的行，输出组成一个新的数据框，应该如何呢？

1. library(tidyverse)
   
2. newData <- oldData %>%
   
3.   group_by(INPUT_FID) %>%
   
4.   top_n(n = 50, wt = desc(DISTANCE))

复制代码