Guilty pleasure songs

I stumbled upon a best of list of Top 69 guilty pleasure songs – now, if those are really everybody’s top songs is of course open for debate. Personally, I would exclude quite a lot of the pieces. But what caught my eye was that a surprising number of the songs was from 1990-2000, and I wanted to visualize this impression.

Data

I documented the artist, title and year of production as given in the video.

df = read.xlsx("69 guilty songs.xlsx")

glimpse(df)
## Rows: 69
## Columns: 4
## $ Nr     <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 1...
## $ Gruppe <chr> "King Africa", "Backstreet Boys", "Reel 2 Real", "ATC", "2 U...
## $ Titel  <chr> "La Bomba", "Everybody", "I like to move it", "Around the wo...
## $ Jahr   <dbl> 2000, 1997, 1993, 2000, 1991, 1994, 2004, 2001, 1978, 1991, ...
timeline = data.frame(Jahr = range(df$Jahr)[1]:range(df$Jahr)[2])

Graphics

## `summarise()` ungrouping output (override with `.groups` argument)
## Joining, by = "Jahr"