Объедините результат из top_n с категорией «Другое» в dplyr

У меня есть фрейм данныхDAT1

   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

Сначала я хочу подвести итог «Количество» на «Страна». Затем три верхних общих показателя по стране следует объединить с дополнительной строкой «Другие», которая представляет собой сумму стран, которые не входят в первую тройку.

Следовательно, ожидаемый результат будет следующим:

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

Я попробовал приведенный ниже код, но не смог понять, как разместить строку «Другие».

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

Этот код в настоящее время дает:

    Country Count
1     AUS     6
2     JPN     5
3     USA     5

Любая помощь будет принята с благодарностью.

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"))

Ответы на вопрос(7)

Ваш ответ на вопрос