使用 R & dplyr 计算多列的出现次数答案

【问题标题】：Count occurence across multiple columns using R & dplyr使用 R & dplyr 计算多列的出现次数
【发布时间】：2015-07-14 19:31:00
【问题描述】：

这应该是一个简单的解决方案...我只是无法解决这个问题。我想计算一个因素在数据框的多列中出现的次数。有 13 列范围从 abx.1 > abx.13 和大量行。

示例数据框：

library(dplyr)
 abx.1 <- c('Amoxil', 'Cipro', 'Moxiflox', 'Pip-tazo')
 start.1 <- c('2012-01-01', '2012-02-01', '2013-01-01', '2014-01-01')
 abx.2 <- c('Pip-tazo', 'Ampicillin', 'Amoxil', NA)
 start.2 <- c('2012-01-01', '2012-02-01', '2013-01-01', NA)
 abx.3 <- c('Ampicillin', 'Amoxil', NA, NA)
 start.3 <- c('2012-01-01', '2012-02-01', NA,NA)
 worksheet <-data.frame (abx.1, start.1, abx.2, start.2, abx.3, start.3)

我想要的结果：

姓名计数
阿莫西尔 3
氨苄青霉素 2
Pip-tazo 2
Cipro 1
莫西沙龙 1

我试过了：

worksheet %>% group_by (abx.1, abx.2, abx.3) %>% summarise(count = n())

这并没有给我想要的输出。任何想法将不胜感激。

【问题讨论】：

您的数据不可重现。但您可能只是在寻找 table(unlist(worksheet[grepl("abx", names(worksheet))]))

标签： r dplyr frequency

【解决方案1】：

如果您想要dplyr 解决方案，我建议您将其与tidyr 结合使用，以便首先将您的数据转换为长格式

library(tidyr)
worksheet %>%
  select(starts_with("abx")) %>%
  gather(key, value, na.rm = TRUE) %>%
  count(value)

# Source: local data frame [5 x 2]
# 
#        value n
# 1     Amoxil 3
# 2 Ampicillin 2
# 3      Cipro 1
# 4   Moxiflox 1
# 5   Pip-tazo 2

或者，使用基础 R，它只是

as.data.frame(table(unlist(worksheet[grep("^abx", names(worksheet))])))
#         Var1 Freq
# 1     Amoxil    3
# 2      Cipro    1
# 3   Moxiflox    1
# 4   Pip-tazo    2
# 5 Ampicillin    2

【讨论】：