The code below will only run after you have installed readxl package to your RStudio Cloud project and uploaded the data file into the cloud project folder.
library(readxl)
xlsx_data <- read_excel("SpotifyChartsFebruary8.xlsx")
myDF <- xlsx_data[,1:4]
head(myDF)
## # A tibble: 6 x 4
## Position `Track Name` Artist Streams
## <dbl> <chr> <chr> <dbl>
## 1 1 "drivers license" Olivia Rodrigo 6482893
## 2 2 "DÃ\u0081KITI" Bad Bunny 3646428
## 3 3 "Blinding Lights" The Weeknd 3441317
## 4 4 "Save Your Tears" The Weeknd 3420904
## 5 5 "Bandido" Myke Towers 2738990
## 6 6 "Mood (feat. iann dior)" 24kGoldn 2695928
write.csv(myDF, 'Kaufman.csv', row.names=FALSE, quote=FALSE)