如何使用dplyr獲得計數？

Question

比方說，我們擁有的數據幀

df <- data.frame(x = c("a", "a", "b", "a", "c")) 

使用dplyr數，我們得到

df %>% count(x) 

    x n 
1 a 3 
2 b 1 
3 c 1 

我現在想要做對產出的正列計數。如果第n列命名爲m，我要查找的結果是

m n 
1 1 2 
2 3 1 

這怎麼可以用dplyr來完成？

非常感謝！

Answer 1

dplyrcount(n)似乎有問題。

例如：

d <- data.frame(n = sample(1:2, 10, TRUE), x = 1:10) 
d %>% count(n) 

一種解決方法是重命名n：

df %>% # using data defined in question 
    count(x) %>% 
    rename(m = n) %>% 
    count(m) 

Answer 2

sum((df %>% count(x))$n) 
##[1] 5 

Answer 3

如果你想數：

df %>% count(x) %>% summarise(length(n)) 
# length(n) 
#1   3 

如果你想總和：

df %>% count(x) %>% summarise(sum(n)) 
# sum(n) 
#1  5 

Answer 4

編輯：我錯了。沒有dplyr的最新版本，所以我沒有count函數。

隨着dplyr一個方法來計算是n()在你的榜樣，你會做以下，以獲得第一計數：

df <- data.frame(x = c("a", "a", "b", "a", "c")) 

df %>% group_by(x) %>% summarise(count=n()) 

然後，如果你想算特定的數，你可以做的事件：

df %>% group_by(x) %>% summarise(count=n()) %>% group_by(count) %>% summarise(newCount=n()) 

這是一個dplyr的方法。

Answer 5

如果您願意嘗試data.table，那可能是相當直接的。

df <- data.frame(x = c("a", "a", "b", "a", "c")) 
library(data.table) 
setDT(df)[, .N, by=x][, list(count_of_N=.N), by=N] 
# N count_of_N 
# 1: 3   1 
# 2: 1   2 

Answer 6

它不是純plyr但是這可能工作：

countr<-function(x){data.frame(table(x))} 
t<-count(df,x) 
countr(t[,2])