r - 计算 r 中一组单词的出现次数

Question

这个问题已经有答案了:

Counting whole word/number occurrences with str_count in R (2 个回答)

已关闭 5 年前。

假设我有一个数据集，例如:

Col1
Mon,Tues,Wed,Thurs,Fri
Mon,Tues,Wed,Thurs
Mon,Tues,Wed
Mon,Tues
Thurs

我想通过计算一组单词来给每一行打分。假设我有这组单词:Mon、Tues、Wed

如何制作具有相应分数的列？这将导致:

Scores
3
3
3
2
0

提前谢谢您!

Answer 1

这是一个基本的 R 解决方案:

words <- c("Mon", "Tues", "Wed");
sapply(strsplit(as.character(df$Col), ","), function(x) sum(x %in% words))
#[1] 3 3 3 2 0

或者存储在分数列中:

df$Scores <- sapply(strsplit(as.character(df$Col), ","), function(x) sum(x %in% words));
df;
#                    Col1 Scores
#1 Mon,Tues,Wed,Thurs,Fri      3
#2     Mon,Tues,Wed,Thurs      3
#3           Mon,Tues,Wed      3
#4               Mon,Tues      2
#5                  Thurs      0

---

或者使用transform和purrr::map_int

library(purrr);
transform(df, Scores = map_int(Col1, function(x) 
    sum(unlist(strsplit(as.character(x), ",")) %in% words)))
#                    Col1 Scores
#1 Mon,Tues,Wed,Thurs,Fri      3
#2     Mon,Tues,Wed,Thurs      3
#3           Mon,Tues,Wed      3
#4               Mon,Tues      2
#5                  Thurs      0

---

示例数据

df <- read.table(text =
    "Col1
Mon,Tues,Wed,Thurs,Fri
Mon,Tues,Wed,Thurs
Mon,Tues,Wed
Mon,Tues
Thurs", header = T)