按出现次数绘制字符串

Question

我有一个数据库，我想从中 plot 每年出现的特定单词。 如何更正代码？

library(stringr)
library(tidyverse)

str = "something" 

occurrences <- data %>%
  group_by(year) %>%
  str_count(str)

df <- data.frame(occurrences)

ggplot(df, aes(x=year, y=occurences)) + 
  geom_line()