a <-
mtcars %>%
top_n(10, disp) %>%
arrange(desc(disp)) %>%
select(hp)
b <- mtcars %>% arrange(desc(.[[3]])) %>% select(hp) %>% head(10)
identical(a, b)
#[1] TRUE
Вы также можете сначала сделать аранжировку, но это будет медленнее
a <-
mtcars %>%
arrange(desc(disp)) %>%
top_n(10, disp) %>% # same as head(10) since already sorted
select(hp)
b <- mtcars %>% arrange(desc(.[[3]])) %>% select(hp) %>% head(10)
identical(a, b)
#[1] TRUE