Strange characters lyrics about taylor HOT 3 CLOSED

library(tidyverse)
library(taylor)

taylor_all_songs %>%
  select(album_name, track_name, lyrics) %>%
  unnest(lyrics) %>%
  select(album_name, track_name, line, lyric) %>%
  mutate(across(where(is.character), stringi::stri_enc_isascii,
    .names = "{.col}_ascii"
  )) %>%
  filter(!if_all(ends_with("ascii"))) %>%
  mutate(
    ascii_flag = map(lyric,
      .f = function(.x) {
        str_split(.x, "") %>%
          flatten_chr() %>%
          enframe() %>%
          mutate(ascii = map_lgl(
            value,
            stringi::stri_enc_isascii
          )) %>%
          filter(!ascii) %>%
          select(value, ascii)
      }
    )
  ) %>%
  unnest(ascii_flag) %>%
  select(album_name, track_name, lyric, ascii, value)
#> # A tibble: 17 × 5
#>    album_name                  track_name                      lyric ascii value
#>    <chr>                       <chr>                           <chr> <lgl> <chr>
#>  1 Fearless (Taylor's Version) White Horse (Taylor's Version)  "May… FALSE ï    
#>  2 Red                         Begin Again                     "But… FALSE é    
#>  3 Red                         Begin Again                     "But… FALSE é    
#>  4 Red                         Begin Again                     "But… FALSE é    
#>  5 Red                         Begin Again                     "But… FALSE é    
#>  6 Red (Taylor's Version)      Begin Again (Taylor's Version)  "But… FALSE é    
#>  7 Red (Taylor's Version)      Begin Again (Taylor's Version)  "But… FALSE é    
#>  8 Red (Taylor's Version)      Begin Again (Taylor's Version)  "But… FALSE é    
#>  9 Red (Taylor's Version)      Begin Again (Taylor's Version)  "But… FALSE é    
#> 10 Red (Taylor's Version)      Nothing New (Taylor's Version)… "Peo… FALSE é    
#> 11 Lover                       You Need To Calm Down           "But… FALSE ó    
#> 12 folklore                    the 1                           "I h… FALSE é    
#> 13 folklore                    the 1                           "Ros… FALSE é    
#> 14 folklore                    the last great american dynasty "And… FALSE é    
#> 15 folklore                    the last great american dynasty "And… FALSE í    
#> 16 evermore                    champagne problems              "Dom… FALSE é    
#> 17 Midnights                   Maroon                          "\"Y… FALSE é

taylor_all_songs %>%
  select(album_name, track_name, lyrics) %>%
  unnest(lyrics) %>%
  filter(str_detect(lyric, "a brave man"))
#> # A tibble: 1 × 6
#>   album_name                    track_name     line lyric element element_artist
#>   <chr>                         <chr>         <int> <chr> <chr>   <chr>         
#> 1 THE TORTURED POETS DEPARTMENT The Black Dog    18 You … Verse 2 Taylor Swift