Eu tenho um quadro de dadosdat1

   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

Primeiro, quero somar "Contagem" por "País". Em seguida, as três principais contagens totais por país devem ser combinadas com uma linha adicional "Outros", que é a soma dos países que não fazem parte das três principais.

O resultado esperado, portanto, seria:

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

Eu tentei o código abaixo, mas não consegui descobrir como colocar a linha "Outros".

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

Atualmente, este código fornece:

    Country Count
1     AUS     6
2     JPN     5
3     USA     5

Qualquer ajuda seria muito 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"))