Пожалуйста, сделайте ответы воспроизводимыми в будущем, а также включите информацию о том, какие шаги вы уже предприняли. Пример данных - это еще один полезный инструмент, который поможет нам быстрее ответить вам.
Вот небольшой пример, который я составил с помощью пакета dplyr
:
library(dplyr) # group_by() and top_n()
library(magrittr) # %>% - piping function
data <- data.frame(X=c(rep(1,300),rep(2,300)), Y=1:600)
subdata <- data %>%
group_by(X) %>%
top_n(200)
Это закончится 400 строками, 200 '1' строками и 200 '2' строками. Дайте мне знать, если у вас возникнут проблемы.