Message Boards

GROUPS:

Staff Picks Data Science Audio, Sound and Music Dynamic Interactivity Interface Construction Wolfram Language Wolfram High School Summer Camp

Claire Chen

[WSC21] Billboard top 100 GUI

Claire Chen, Glastonbury High School

Posted 3 months ago

1275 Views

5 Replies

11 Total Likes

Follow this post

enter image description here

Billboard top 100 GUI
by Claire Chen

I analyzed Billboard data by song and artist, and created a graphical user interface that allows user to look at data about songs and artists.

Introduction:

I wanted to make an interactive program that allows the user to input a song or artist and get access to that data in the form of graphs. First, I had to clean the data because there were many elements and I didn't need all of them. I also made several helper functions that would analyze songs and artists so I could combine all of them into one big function at the end. This big function would be put into a GUI, so the user could explore on their own.

Obtain and sort data:

First, I imported the data, which I got from this link: https://data.world/kcmillersean/billboard-hot-100-1958-2017

locationOfData="path_to_original_csv";billboardCSV=Import[locationOfData,"CSV"];

Because I only wanted certain elements of the data, I extracted those. I wanted the elements song and performer because I wanted to analyze songs with their corresponding performers. I wanted the Week ID and Week position because it contains the date and corresponding position on the chart.

extractData[billboardDatasetInput_]:=<|If[StringMatchQ[#[[2]],"WeekID"],"WeekID"->"WeekID","WeekID"->FromDateString[#[[2]],{"Day","/","Month","/","Year"}]],"Song"->#[[4]],(*Song*)"Performer"->#[[5]],(*Performer*)"SongID"->#[[6]],(*SongID*)"Week Position"->#[[3]],(*WeekPosition*)"Peak Position"->#[[9]],(*PeakPosition*)"Weeks on Chart"->#[[10]](*Weeksonchart*)|>&/@billboardDatasetInputextractedCSV=extractData[billboardCSV];extractedDataset=Dataset@extractedCSV;

I created a metric with the extracted data:

In[]:=

createMetric[song_]:=Module[{lstPeakPos,lstWksOnChart,peakPos,wksOnChart},lstPeakPos=Normal[song[[All,Key["Peak Position"]]]];lstWksOnChart=Normal[song[[All,Key["Weeks on Chart"]]]];<|"WeekID"->Normal[song[[All,Key["WeekID"]]]],"Song"->First[song]["Song"],"Performer"->First[song]["Performer"],"SongID"->First[song]["SongID"],"WeekPosition"->Normal[song[[All,"Week Position"]]],"Min Peak Position"->Min[lstPeakPos],"Max Weeks on Chart"->Max[lstWksOnChart]|>]refinedData=createMetric/@groupedDataset;

Helper Functions:

Here I imported the data and used billboardDataCloud for the rest of my explorations.

In[]:=

CloudObject[

https://www.wolframcloud.com/obj/cchen6130/RefinedBillboardDataset

];

In[]:=

billboardDataCloud=CloudGet[CloudObject[

https://www.wolframcloud.com/obj/cchen6130/RefinedBillboardDataset

]];

I wanted a function that could take the string input "ArtistName" and output either songs by just the artist (True) or output songs that have all instances of the artist, like collaborations and/or features (False).

In[]:=

searchByArtist[ArtistName_,AllArtistSongsQ_]:=If[ AllArtistSongsQ, Select[billboardDataCloud,StringMatchQ[ToString[#["Performer"]],ArtistName]&], Select[billboardDataCloud,StringContainsQ[ToString[#["Performer"]],___~~ArtistName~~___]&]]

This function creates a graph of all the artists songs that were on the top 100, and overlays the songs in different colors.

In[]:=

graphArtistsSongsOverlay[SongDataList_Dataset]:= Module[ {graphData}, graphData = Normal[ Table[ Transpose[{Normal[SongDataList[[i]]["WeekID"]], Normal[SongDataList[[i]]["WeekPosition"]]}], {i,Length[SongDataList]} ] ]; DateListPlot[graphData, PlotLegends->Normal[SongDataList[[All, Key["Song"]]]], ScalingFunctions->"Reverse", DateTicksFormat->{"MonthShort","/","Day","/","Year"}]]

In[]:=

h=searchByArtist["Calvin Harris",True];(*outputssongsjustbytheartist*)graphArtistsSongsOverlay[h]

Out[]=

	Summer
	My Way
	Feel So Close

In[]:=

h=searchByArtist["Calvin Harris",False];(*outputsallsongstheartisthasappearedon*)graphArtistsSongsOverlay[h]

Out[]=

	Outside
	Summer
	Blame
	Rollin
	One Kiss
	Promises
	Slide
	Over Now

	My Way
	Feels
	How Deep Is Your Love
	Don't Quit
	I Need Your Love
	Sweet Nothing
	Let's Go
	Feel So Close

	Thinking About You
	This Is What You Came For
	Heatstroke
	Faking It
	We Found Love

In[]:=

menuViewArtistGraphs[SongDataList_Dataset] := Module[ {plottableData, graphData}, plottableData = Normal[Table[Transpose[{Normal[SongDataList[[i]]["WeekID"]],Normal[SongDataList[[i]]["WeekPosition"]]}], {i,Length[SongDataList]}]]; graphData = DateListPlot[{#}]&/@plottableData; MenuView[AssociationThread[Normal[SongDataList[[All, Key["Song"]]]]->graphData]]]

This function just puts the graph of all the artists songs into a menu view, which is helpful when the artist has many songs, because the user can just see one song instead of many songs overlaid.

In[]:=

h=searchByArtist["Taylor Swift",True];menuViewArtistGraphs[h]

Out[]=

Sparks Fly

This function combines the above functions, so that if AllSongsQ is true the function will output a graph with overlaid lines, and if false, it will output a menu view graph.

In[]:=

getGraphsOverTimeArtists[artistSongs_,graphArtistSongsOverlayQ_]:=Which[ graphArtistSongsOverlayQ==True, graphArtistsSongsOverlay[artistSongs], graphArtistSongsOverlayQ==False, menuViewArtistGraphs[artistSongs]]

Analyzing by song:

This function can search and display songs with the same title, or with similar titles. If the Boolean value is true, it will output all songs with the same exact title as the song input, and if false the function will output songs with similar titles.

In[]:=

searchBySong[SongName_, AllSongsQ_]:= If[ AllSongsQ, Select[billboardDataCloud, StringMatchQ[ToString[#["Song"]], SongName]&], Select[billboardDataCloud, StringMatchQ[ToString[#["Song"]], ___~~SongName~~___]&]]

We can have a function that can graph these songs:

In[]:=

menuViewSongGraphs[SongDataList_Dataset, TypeQ_] := Module[ {plottableData, graphData}, plottableData = Normal[Table[Transpose[{Normal[SongDataList[[i]]["WeekID"]],Normal[SongDataList[[i]]["WeekPosition"]]}],{i,Length[SongDataList]}]]; graphData = DateListPlot[{#}]&/@plottableData; MenuView[AssociationThread[Normal[SongDataList[[All, If[TypeQ, Key["SongID"], Key["Performer"]]]]->graphData]]]]

If the Boolean value is true, a graph will output a menu view with SongID:

In[]:=

g=searchBySong["Now Or Never",True];(*containssongswiththeexacttitle"Now Or Never"*)menuViewSongGraphs[g,False](*Hasgraphsofallartistswiththesong"Now Or Never"*)

Out[]=

Halsey

This function combines the above functions:

In[]:=

getGraphsOverTimeSongs[artistSongs_, graphArtistSongsOverlayQ_, TypeQ_] := Which[ graphArtistSongsOverlayQ==True, graphArtistsSongsOverlay[artistSongs], graphArtistSongsOverlayQ==False, menuViewSongGraphs[artistSongs, TypeQ]]

In[]:=

s=searchBySong["Now Or Never",False];(*searchforallsongsthathave"Now Or Never"inthetitle*)getGraphsOverTimeSongs[s,False,True](*ThemenuviewtabshaveSongIDsoweknowartistandtitle*)

Out[]=

Now Or NeverHalsey

This function will help us in the next section, basically searching for a song or an artist depending on input.

In[]:=

searchByInfo[ArtistName_, AllArtistSongsQ_, SongName_, AllSongsQ_, ArtistOrSongQ_]:= Which[ ArtistOrSongQ, searchByArtist[ArtistName, AllArtistSongsQ], !ArtistOrSongQ, searchBySong[SongName, AllSongsQ]]

Combining all the helper functions:

In[]:=

analyzeArtistInformation[artistName_, songName_, allArtistSongsQ_, AllSongsQ_, graphArtistSongsOverlayQ_, TypeQ_, artistOrSongQ_]:= Module[ {artistSongs,songInformation,graphsOverTime}, artistSongs = searchByInfo[artistName, allArtistSongsQ, songName, AllSongsQ, artistOrSongQ]; If[ artistOrSongQ, graphsOverTime=getGraphsOverTimeArtists[artistSongs, graphArtistSongsOverlayQ], graphsOverTime=getGraphsOverTimeSongs[artistSongs, graphArtistSongsOverlayQ, TypeQ] ]; graphsOverTime]

In[]:=

analyzeArtistInformation["Taylor Swift","",False,False,False,True,True](*Analyzesartist,includesallinstancesofartist,menuview*)

Out[]=

Back To December

Creating an interactive display:

The final output is an interactive display where users can input a song or artist of their choice and can view graphs.

In[]:=

DynamicModule[ artistName="", songName="", allArtistSongsQ=True, artistOrSongQ=True, artistSongs={}, graphArtistSongsOverlayQ=False, dynamResults="Input a song or artist to get started!", AllSongsQ=True, TypeQ=False, Grid[  Text[Style["Billboard Top 100 Analyzer", 24, Bold]], SpanFromLeft, SpanFromLeft ,  Dynamic@If[artistOrSongQ, InputField[ Dynamic[artistName], String, FieldHint->"Input one artist name" ], InputField[ Dynamic[songName], String, FieldHint->"Input one song name" ]], PopupMenu[ Dynamic[allArtistSongsQ],  True->"Retreive Exact Matches", False->"Retrieve All Possible Matches"  ], Button[ "Synthesize Billboard Data", Dynamic[dynamResults=analyzeArtistInformation[artistName, songName, allArtistSongsQ, AllSongsQ, graphArtistSongsOverlayQ, TypeQ, artistOrSongQ]] ] ,  RadioButtonBar[ Dynamic[artistOrSongQ],  True -> "Artist", False -> "Song"  ], RadioButtonBar[ Dynamic[graphArtistSongsOverlayQ],  True->"Output all graphs on one graph", False->"Output each graph individually"  ], SpanFromAbove ,  Dynamic[dynamResults], SpanFromLeft, SpanFromLeft  , Frame->All, Background->RGBColor[0.73,1.,0.88], Alignment->{Center,Center}, Spacings->{Automatic,4} ]]

Out[]=

Billboard Top 100 Analyzer

Retreive Exact Matches

Synthesize Billboard Data

Artist

Song

Output all graphs on one graph

Output each graph individually

analyzeArtistInformation[,,True,True,False,False,True]

Notes:

Some of the data is incorrect; there seems to be a song that has charted in 2022, which didn't happen yet.

In[]:=

searchBySong["Cardigan",True]

Out[]=

WeekID	Song	Performer	SongID	WeekPosition	Min Peak Position	Max Weeks on Chart
{ … 14 }	Cardigan	Taylor Swift	CardiganTaylor Swift	{ … 14 }	1	14
 Sun 3 Apr 2022 	Cardigan	Don Toliver	CardiganDon Toliver	{90}	90	1

Next Steps:

I originally wanted analyze songs by genre, but did not have enough time. I would do this by finding another data set with genre and could match up song names to their respective genres.

POSTED BY: Claire Chen

Answer

5 Replies

Sort By:

Justin Ji

Justin Ji, Whitney High School

Posted 3 months ago

This is awesome! Also wow, Taylor has so many T-100s :0

POSTED BY: Justin Ji

Answer

Claire Chen

Claire Chen, Glastonbury High School

Posted 3 months ago

Thanks Justin! If Taylor Swift wasn't in the top 100 I probably would not have considered menu view.

POSTED BY: Claire Chen

Answer

Krishna Sidde

Krishna Sidde, Wisdom High International School

Posted 3 months ago

This is amazing!! Now I know where to come to analyze artists on the Billboard.

POSTED BY: Krishna Sidde

Answer

Claire Chen

Claire Chen, Glastonbury High School

Posted 3 months ago

Thanks Krishna!

POSTED BY: Claire Chen

Answer

Moderation Team

Moderation Team, WOLFRAM

Posted 1 month ago

-- you have earned *Featured Contributor Badge* Your exceptional post has been selected for our editorial column *Staff Picks* http://wolfr.am/StaffPicks and Your Profile is now distinguished by a *Featured Contributor Badge* and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team

Answer

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback