library(tidyverse)
library(tidytext)
tibble(frase = "O amor é uma ação, nunca simplesmente um sentimento") |>
unnest_tokens(output = word, input = frase)
# A tibble: 9 × 1
word
<chr>
1 o
2 amor
3 é
4 uma
5 ação
6 nunca
7 simplesmente
8 um
9 sentimento