Por lo que entiendo que buscas: Obtener el primer registro de cada id
podrías 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(c(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.