Question

如何在R中获得数组的前n个排名？

让我说我有

a <- c(67, 2, 100, 2, 100, 23, 2, 100, 67, 89,100)

我怎样才能得到：

rank   number   times
1     100       4
2     2         3
3     67        2
4     23        1
4     89        1

Answer 1

tab <- table(a<-c(67, 2, 100, 2, 100, 23, 2, 100, 67, 89,100))
df <- as.data.frame(tab)
names(df) <- c("number","times")
df$rank <- rank(-df$times,ties.method="min")
df <- df[order(df$rank,decreasing = F),]
df
  number times rank
5    100     4    1
1      2     3    2
3     67     2    3
2     23     1    4
4     89     1    4

Answer 2

将table与sort：

一起使用

sort(table(a), decreasing=TRUE)
a
100   2  67  23  89 
  4   3   2   1   1

如果要将结果转换为数据框，只需将所有内容包装到data.frame()：

data.frame(count=sort(table(a), decreasing=TRUE))
    count
100     4
2       3
67      2
23      1
89      1

Answer 3

您可以尝试这样的事情：

a <- c(67, 2, 100, 2, 100, 23, 2, 100, 67, 89,100)
DF <- as.data.frame(table(a))

DF[order(DF[,2], decreasing = TRUE), ]
    a Freq
5 100    4
1   2    3
3  67    2
2  23    1
4  89    1

Answer 4

或者使用plyr包中的count：

require(plyr)
df = count(a)
df[order(df[["freq"]], decreasing = TRUE),] 
    x freq
5 100    4
1   2    3
3  67    2
2  23    1
4  89    1

Answer 5

对此的dplyr解决方案可能是：

library(dplyr)
df <- tibble(a = c(67, 2, 100, 2, 100, 23, 2, 100, 67, 89,100))
df %>% 
  count(a) %>% 
  mutate(rank = min_rank(-n)) %>%
  arrange(desc(n)) %>% 
  rename(number = a, times = n)
#> # A tibble: 5 x 3
#>   number times  rank
#>    <dbl> <int> <int>
#> 1    100     4     1
#> 2      2     3     2
#> 3     67     2     3
#> 4     23     1     4
#> 5     89     1     4

Answer 6

您可以使用df[df>0] <- 1，稍后rowSums(df)，最后使用with(df, df[order(-x, y, z), ]，其中-x是频率数据列，其他是ID列，以及补充信息，你有。

如何从R中的向量中获取前n个元素（就频率而言）？

6 个答案: