Text and Sentiment Analysis in R

library(tidyverse)
lines <- readLines("https://chryswoods.com/text_analysis_r/hamlet.txt")
text <- tibble(line=1:length(lines), text=lines)

text %>% mutate(text = str_replace_all(text, 
                                       regex("\\bthe\\s\\w+", 
                                             ignore_case=TRUE), 
                                       "the banana"))

If you wanted to preserve the case of The then you would perform two replacements, e.g.

text %>% 
  mutate(text = str_replace_all(text, 
                                "\\bthe\\s\\w+", 
                                "the banana")) %>%
  mutate(text = str_replace_all(text,
                                "\\bThe\\s\\w+",
                                "The banana"))

Return