使用dplyr，你可以做这样的事情;

library(dplyr)
df <- tibble(word =c("a", "um", "yeah", "I'm", "no", "a")) 

df %>% 
  group_by(word) %>% 
  add_tally(name = "freq") %>% 
  ungroup()

要计算每个观测值（包括每个观测值中的重复值），可以尝试按行求和，并将sapply与stringr::str_count一起使用（将paste0用于单词边界）

df$count <- rowSums(sapply(df$word, function(x) 
                             stringr::str_count(df$word, paste0("\\b", x,"\\b"))))
#  word freq count
#1    a    2     2
#2   um    1     1
#3 yeah    1     1
#4  I'm    1     1
#5   no    1     1
#6    a    2     2

数据

df <- read.table(text = "word      freq
a          2 
um         1
yeah       1
I'm        1
no         1
a          2", header = TRUE)

注意，如果您的数据位于字符串的简单向量中，定义为str，您将执行以下操作：

rowSums(sapply(str, function(x) stringr::str_count(str, paste0("\\b", x,"\\b"))))