将包括其他值的最重复值排在前面

我创建了一个表格,其中包括按性别,主题等组织的1000首歌曲的列表.我想知道重复多少年以及其他类别中有多少年.我试过了:

sort(summary(as.factor(canciones$YEAR)), decreasing=T)[1:3]

输出是:

1968 1966 1979 
  39   37   34 

但我希望它是

1968 1966 1979 Others
  39   37   34    950

Rich Scriven.. 9

以下是一些示例数据.

set.seed(1)
x <- sample(10, 500, TRUE)

我们可以运行整个摘要,前三个子集,然后将剩余值计算为"其他"并在最后添加.此外,我认为你可以使用table()而不是summary(factor())因为summary.factor()无论如何这是在引擎盖下.

xx <- sort(table(x), decreasing = TRUE)
c(xx[1:3], Others = sum(xx[-(1:3)]))
#     5      2      4 Others 
#    64     61     57    318 

注意:使用它可能会或可能不会更快Others = length(x) - sum(xx[1:3]).

以下是一些示例数据.

set.seed(1)
x <- sample(10, 500, TRUE)

我们可以运行整个摘要,前三个子集,然后将剩余值计算为"其他"并在最后添加.此外,我认为你可以使用table()而不是summary(factor())因为summary.factor()无论如何这是在引擎盖下.

xx <- sort(table(x), decreasing = TRUE)
c(xx[1:3], Others = sum(xx[-(1:3)]))
#     5      2      4 Others 
#    64     61     57    318 

注意:使用它可能会或可能不会更快Others = length(x) - sum(xx[1:3]).