如何计算R中数据框中特定值的数量？ [重复]

Question

这个问题在这里已有答案：

• How to count the frequency of a string for each row in R 2回答
• Counting number of instances of a condition per row R [duplicate] 1回答

我有一个数据帧df：

a b c
1 5 5
2 3 5
3 3 5
3 3 3
3 3 2
4 2 2
1 2 2

我想计算连续多少3个，例如，我该怎么做？例如，第2行= 1，第3行= 2等。请咨询。

Answer 1

如果你想要计算所有的值，@ ManuelBickel的答案是好的。如果你真的只想知道有多少3个，这可能会更简单。

rowSums(data==3)
[1] 0 1 2 3

Answer 2

如果您希望以更有序的方式返回计数

set.seed(1)
m <- matrix(sample(c(1:3, 5), 15, replace=TRUE), 5, dimnames=list(LETTERS[1:5]))
m
#   [,1] [,2] [,3]
# A    2    5    1
# B    2    5    1
# C    3    3    3
# D    5    3    2
# E    1    1    5

u <- sort(unique(as.vector(m)))
r <- sapply(setNames(u, u), function(x) rowSums(m == x))
r
#   1 2 3 5
# A 1 1 0 1
# B 1 1 0 1
# C 0 0 3 0
# D 0 1 1 1
# E 2 0 0 1

Answer 3

你可以使用apply和table。输出是一个列表，为您提供每行唯一元素的计数。 （如果这是有意义的，设置适用于MARGIN的2将为您提供每列的输出。）

更新：由于其他人提供了同时产生更多“有序”输出的解决方案，我已经通过使用data.table::rbindlist来修改我的方法。

#I have skipped some of the last rows of your example
data <- read.table(text = "
                   a b c
                   1 5 5
                   2 3 5
                   3 3 5
                   3 3 3
                   ", header = T, stringsAsFactors = F)

apply(data, 1, table)
# [[1]]
# 1 5 
# 1 2 
# [[2]]
# 2 3 5 
# 1 1 1 
# [[3]]
# 3 5 
# 2 1 
# [[4]]
# 3 
# 3 

#Update: output in more ordered fashion 
library(data.table)
rbindlist(apply(data, 1, function(x) as.data.table(t(as.matrix(table(x)))))
          ,fill = TRUE
          ,use.names = TRUE)
#     1  5  2  3
# 1:  1  2 NA NA
# 2: NA  1  1  1
# 3: NA  1 NA  2
# 4: NA NA NA  3

#if necessary NA values might be replaced, see, e.g.,
##https://stackoverflow.com/questions/7235657/fastest-way-to-replace-nas-in-a-large-data-table