Tengo un marco de datosdat1

   Country Count
1      AUS     1
2       NZ     2
3       NZ     1
4      USA     3
5      AUS     1
6      IND     2
7      AUS     4
8      USA     2
9      JPN     5
10      CN     2

Primero quiero sumar "Cuenta" por "País". Luego, los 3 recuentos totales superiores por país deben combinarse con una fila adicional "Otros", que es la suma de países que no forman parte de los 3 principales.

El resultado esperado, por lo tanto, sería:

    Country Count
1     AUS     6
2     JPN     5
3     USA     5
4     Others  7

He intentado el siguiente código, pero no pude encontrar la forma de colocar la fila "Otros".

dat1 %>%
    group_by(Country) %>%
    summarise(Count = sum(Count)) %>%
    arrange(desc(Count)) %>%
    top_n(3)

Este código actualmente da:

    Country Count
1     AUS     6
2     JPN     5
3     USA     5

Cualquier ayuda sería muy apreciada.

dat1 <- structure(list(Country = structure(c(1L, 5L, 5L, 6L, 1L, 3L, 
    1L, 6L, 4L, 2L), .Label = c("AUS", "CN", "IND", "JPN", "NZ", 
    "USA"), class = "factor"), Count = c(1L, 2L, 1L, 3L, 1L, 2L, 
    4L, 2L, 5L, 2L)), .Names = c("Country", "Count"), class = "data.frame",     row.names = c("1", 
    "2", "3", "4", "5", "6", "7", "8", "9", "10"))