表中每列的值的频率

Question

使用多列获得独立频率计数的好方法是什么dplyr？我想从一个价值表中走出来:

# A tibble: 7 x 4
      a     b     c     d
  <int> <int> <int> <int>
1     1     2     1     3
2     1     2     1     3
3     2     2     5     3
4     3     2     4     3
5     3     3     2     3
6     5     3     4     3
7     5     4     2     1

到这样的频率表:

# A tibble: 5 x 5
      x   a_n   b_n   c_n   d_n
  <int> <int> <int> <int> <int>
1     1     2     0     2     1
2     2     1     4     2     0
3     3     2     2     0     6
4     4     0     1     2     0
5     5     2     0     1     0

我仍然试图让自己的头脑dplyr,但似乎这是它可以做的事情.如果使用附加库更容易,那也没关系.

Answer 1

对于您在问题中提供的相同数据集,这将是另一种解决方案(base-R):

myfreq <- sapply(df, function(x) table(factor(x, levels=unique(unlist(df)), ordered=TRUE)))

输出将是:

> myfreq

#   a b c d 
# 1 2 0 2 1 
# 2 1 4 2 0 
# 3 2 2 0 6 
# 5 2 0 1 0 
# 4 0 1 2 0

Answer 2

tabulate在基数 R 中使用：

apply(df,2,function(x) tabulate(x)[min(df):max(df)])

#     a  b c  d
#[1,] 2  0 2  1
#[2,] 1  4 2  0
#[3,] 2  2 0  6
#[4,] 0  1 2 NA
#[5,] 2 NA 1 NA

Answer 3

library(dplyr)
library(reshape2)
df %>%
  melt() %>%
  dcast(value ~ variable, fun.aggregate=length)

#   value a b c d
# 1     1 2 0 2 1
# 2     2 1 4 2 0
# 3     3 2 2 0 6
# 4     4 0 1 2 0
# 5     5 2 0 1 0

数据

df <- structure(list(a = c(1L, 1L, 2L, 3L, 3L, 5L, 5L), b = c(2L, 2L, 
2L, 2L, 3L, 3L, 4L), c = c(1L, 1L, 5L, 4L, 2L, 4L, 2L), d = c(3L, 
3L, 3L, 3L, 3L, 3L, 1L)), .Names = c("a", "b", "c", "d"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7"))