{"id":4391,"date":"2019-01-02T17:06:46","date_gmt":"2019-01-02T15:06:46","guid":{"rendered":"https:\/\/engel-wolf.com\/?p=4391"},"modified":"2019-10-27T17:10:43","modified_gmt":"2019-10-27T15:10:43","slug":"music-listener-statistics-last-fms-last-year-as-an-r-package","status":"publish","type":"post","link":"https:\/\/engel-wolf.com\/?p=4391","title":{"rendered":"Music listener statistics: last.fm\u2019s last.year as an R package"},"content":{"rendered":"\n

When starting analyzing last.fm scrobbles with the last.week and last.year function I was always missing some plots or a pure data table. That is why I developed the package \u201canalyzelastfm<\/a>\u201d as a simple R6 implementation. I wanted to have different album statistics, as e.g the #of plays per album, divided by the # of tracks on the album. This is now implemented. To get music listening statistic you would start with:<\/p>\n\n\n

\n# If you don't have it, install devtools\n# install.packages("devtools")\ndevtools::install_github("zappingseb\/analyze_last_fm")\nlibrary(analyzelastfm)\n<\/pre><\/div>\n\n\n
First it allows you to import your\u00a0last.year<\/a>\u00a0data by using the last.fm REST API. Therefore you need to have a last.fm API key. This can be derived by simply going to the\u00a0last.fm API website<\/a>. From there you will get the 32 character long key. After receiving the key I got my last.fm data by:<\/p>\n\n\n
\napi_key <- "PLEASE ENTER YOUR KEY HERE"\ndata <- UserData$new("zappingseb",api_key,2018)\n<\/pre><\/div>\n\n\n
The data object now contains the function\u00a0albumstats<\/code>\u00a0that allows me to get the specific information I wanted. I\u2019ll exclude the artist \u201cDie drei\u00a0???\u201d as it\u2019s a kids detective story from Germany I listen to a lot and which\u2019s albums are split into 1 minute tracks, that really screws up my statistic.<\/p>\n\n\n
\nView(data$albumstats(\n  sort_by="by_album_count", # album track plays \/ nr tracks on album\n  exclude_artist="Die drei ???", # exclude my audio book favorite\n  exclude_album=c(""), # exclude tracks without album name\n  min_tracks=5) # have minimum 5 tracks on the album (NO EPs)\n)\n<\/pre><\/div>\n\n\n
The result looks like that:<\/p>\n\n\n\n
\"\"\/
Album statistics of 2018 of zappingseb<\/figcaption><\/figure>\n\n\n\n
The statistic shows n<\/code> the number of plays, count<\/code> the number of tracks on the album and count_by_track=n\/count<\/code> .<\/p>\n\n\n\n
The top 5 albums you can find here:<\/p>\n\n\n\n