Pitchfork.R

#Load Necssary packages

library(plotly)

#Upload the CSV

pitchfork<-read.csv('pitchfork_review_data.csv')

##Make a Best New Music Set

Special<-pitchfork[which(pitchfork$accolade==" Best New Music "), ]

#plotly credentials

p <- plotly(username="yourname", key="yourkey")

#Create Bubble Chart

OverTime<- list(
  x=Special$publish_date,
  y=Special$score,
  text=Special$album,
  type="scatter",
  mode="markers",
  marker=list(
   color = 'rgb(133, 39, 215)',
   "size"=12
    )
    )

p$plotly(OverTime)

## Get a dataframe of the top record labels 

InitialLabels<-as.data.frame(table(Special$label))

#We'll pick those with more than 3
TopLabels<-InitialLabels[which(InitialLabels$Freq > 3), ] 

##Sort it descending

TopLabels<-TopLabels[order(-TopLabels$Freq),]

##Check Artists who have the honor most 

InitialArts<-as.data.frame(table(Special$artist))

##More Than twice will be our indication

TopArtist<-InitialArts[which(InitialArts$Freq > 2), ] 


#Descend 

TopArtist<-TopArtist[order(-TopArtist$Freq),]

#Make a bar chart 

BarLabels<-list(
  x=TopLabels$Var1,
  y=TopLabels$Freq,
  type='bar',
  text=TopLabels$Var1,
  marker=list(
    color='rgb(236,145,9)'
    )
  )

p$plotly(BarLabels)


### Same Bar chart for artists, just change the color 

BarArts<-list(
  x=TopArtist$Var1,
  y=TopArtist$Freq,
  type='bar',
  text=TopArtist$Var1,
  marker=list(
    color='rgb(9,153,236)'
  )
)

p$plotly(BarArts)