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.