Por lo que entiendo que buscas: Obtener el primer registro de cada id
podrías simplemente usar slice()
:
# Agrandamos un poco tu ejemplo con una columna más
data<-data.frame(id=c(1,1,3,4),n=c("x","y","e","w"), o=c(4,3,2,1))
data
id n o
1 1 x 4
2 1 y 3
3 3 e 2
4 4 w 1
data %>%
group_by(id) %>%
slice(1)
# A tibble: 3 x 3
# Groups: id [3]
id n o
<dbl> <fct> <dbl>
1 1. x 4.
2 3. e 2.
3 4. w 1.
El tema es cual de los registros de cada grupo quieres dejar y cuales ignorar, slice()
en una alternativa simple y clara, pero si necesitas controlar el orden por el cual te vas a quedar con el primero top_n()
sin duda puede ser mucho mejor.
data %>%
group_by(id) %>%
top_n(n = 1, wt=-o) # Ordenamos por la columna 'o' ascendente
Asimismo, puedes consultar el sitio en inglés, esta pregunta tiene muchas otras opciones interesante para resolver este tema.