Who is the angriest?

8 min read Data Analysis

Overall sentiments - magnitude

overallData <- subset(sentimentData, select = c('file','Date','magnitude','score'))
p <- ggplot(overallData, aes(x=Date, y = magnitude, colour=file)) + 
  geom_line() + 
  ggtitle('Overall show sentiment magnitude') + 
  xlab('Date') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('1.png',p)

Overall sentiments - score

p <- ggplot(overallData, aes(x=Date, y = score, colour=file)) + 
  geom_line() +
    ggtitle('Overall show sentiment score') + 
  xlab('Date') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('2.png',p)

Segment Analysis - By Day - 1st August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-01')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
    geom_smooth(se=FALSE) + 
    ggtitle('1st August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('3.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE)+ 
  ggtitle('1st August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('4.png',p)

Segment Analysis - By Day - 2st August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-02')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
    geom_smooth(se=FALSE) + 
    ggtitle('2nd August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('5.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('2nd August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('6.png',p)

Segment Analysis - By Day - 3st August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-03')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
    geom_smooth(se=FALSE) + 
    ggtitle('3rd August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('7.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('3rd August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('8.png',p)

Segment Analysis - By Day - 6st August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-06')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
    geom_smooth(se=FALSE) + 
    ggtitle('6th August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('9.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('6th August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('10.png',p)

Segment Analysis - By Day - 7th August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-07')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
  geom_smooth(se=FALSE) + 
    ggtitle('7th August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('11.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('7th August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('12.png',p)

Segment Analysis - By Day - 8th August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-08')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
  geom_smooth(se=FALSE) + 
    ggtitle('8th August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()

p

ggsave('13.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('8th August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('14.png',p)

Segment Analysis - By Day - 9th August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-09')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
  geom_smooth(se=FALSE) + 
    ggtitle('9th August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('15.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('9th August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('16.png',p)

Segment Analysis - By Day - 10th August

dateData <- filter(sentimentData, sentimentData$Date == '2018-08-10')
dateData <- mutate(dateData, percentageDone = case_when(
  file == 'Ben Fordham' ~ X / nrow(filter(dateData, file == 'Ben Fordham')),
  file == 'Ray Hadley' ~ X / nrow(filter(dateData, file == 'Ray Hadley')),
  file == 'Chris Smith' ~ X / nrow(filter(dateData, file == 'Chris Smith')),
  file == 'Alan Jones' ~ X / nrow(filter(dateData, file == 'Alan Jones'))
  ))
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.score, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('10th August show scores') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('17.png',p)
p <- ggplot(dateData, aes(x=percentageDone, y = sentiment.magnitude, colour=file)) + 
  geom_smooth(se=FALSE) +
  ggtitle('10th August show magnitudes') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('18.png',p)

Segment Analysis - By Show - Chris Smith

showData <- filter(sentimentData, file == 'Chris Smith')
showData <- mutate(showData, percentageDone = case_when(
  Date == '2018-08-01' ~ X / nrow(filter(showData, Date == '2018-08-01')),
  Date == '2018-08-02' ~ X / nrow(filter(showData, Date == '2018-08-02')),
  Date == '2018-08-03' ~ X / nrow(filter(showData, Date == '2018-08-03')),
  Date == '2018-08-06' ~ X / nrow(filter(showData, Date == '2018-08-06')),
  Date == '2018-08-07' ~ X / nrow(filter(showData, Date == '2018-08-07')),
  Date == '2018-08-08' ~ X / nrow(filter(showData, Date == '2018-08-08')),
  Date == '2018-08-09' ~ X / nrow(filter(showData, Date == '2018-08-09')),
  Date == '2018-08-10' ~ X / nrow(filter(showData, Date == '2018-08-10'))
  
  ))
showData$Date <- as.factor(showData$Date)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.score, group=Date)) + 
  geom_smooth(aes(colour=Date),se=FALSE) +
  ggtitle('Chris Smith') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('19.png',p)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.magnitude, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Chris Smith') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()

p

ggsave('20.png',p)

Segment Analysis - By Show - Alan Jones

showData <- filter(sentimentData, file == 'Alan Jones')
showData <- mutate(showData, percentageDone = case_when(
  Date == '2018-08-01' ~ X / nrow(filter(showData, Date == '2018-08-01')),
  Date == '2018-08-02' ~ X / nrow(filter(showData, Date == '2018-08-02')),
  Date == '2018-08-03' ~ X / nrow(filter(showData, Date == '2018-08-03')),
  Date == '2018-08-06' ~ X / nrow(filter(showData, Date == '2018-08-06')),
  Date == '2018-08-07' ~ X / nrow(filter(showData, Date == '2018-08-07')),
  Date == '2018-08-08' ~ X / nrow(filter(showData, Date == '2018-08-08')),
  Date == '2018-08-09' ~ X / nrow(filter(showData, Date == '2018-08-09')),
  Date == '2018-08-10' ~ X / nrow(filter(showData, Date == '2018-08-10'))
  
  ))
showData$Date <- as.factor(showData$Date)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.score, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Alan Jones') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('21.png',p)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.magnitude, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Alan Jones') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('22.png',p)

Segment Analysis - By Show - Ray Hadley

showData <- filter(sentimentData, file == 'Ray Hadley')
showData <- mutate(showData, percentageDone = case_when(
  Date == '2018-08-01' ~ X / nrow(filter(showData, Date == '2018-08-01')),
  Date == '2018-08-02' ~ X / nrow(filter(showData, Date == '2018-08-02')),
  Date == '2018-08-03' ~ X / nrow(filter(showData, Date == '2018-08-03')),
  Date == '2018-08-06' ~ X / nrow(filter(showData, Date == '2018-08-06')),
  Date == '2018-08-07' ~ X / nrow(filter(showData, Date == '2018-08-07')),
  Date == '2018-08-08' ~ X / nrow(filter(showData, Date == '2018-08-08')),
  Date == '2018-08-09' ~ X / nrow(filter(showData, Date == '2018-08-09')),
  Date == '2018-08-10' ~ X / nrow(filter(showData, Date == '2018-08-10'))
  
  ))
showData$Date <- as.factor(showData$Date)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.score, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Ray Hadley') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('23.png',p)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.magnitude, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Ray Hadley') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('24.png',p)

Segment Analysis - By Show - Ben Fordham

showData <- filter(sentimentData, file == 'Ben Fordham')
showData <- mutate(showData, percentageDone = case_when(
  Date == '2018-08-01' ~ X / nrow(filter(showData, Date == '2018-08-01')),
  Date == '2018-08-02' ~ X / nrow(filter(showData, Date == '2018-08-02')),
  Date == '2018-08-03' ~ X / nrow(filter(showData, Date == '2018-08-03')),
  Date == '2018-08-06' ~ X / nrow(filter(showData, Date == '2018-08-06')),
  Date == '2018-08-07' ~ X / nrow(filter(showData, Date == '2018-08-07')),
  Date == '2018-08-08' ~ X / nrow(filter(showData, Date == '2018-08-08')),
  Date == '2018-08-09' ~ X / nrow(filter(showData, Date == '2018-08-09')),
  Date == '2018-08-10' ~ X / nrow(filter(showData, Date == '2018-08-10'))
  
  ))
showData$Date <- as.factor(showData$Date)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.score, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Ben Fordham') + 
  xlab('Show Percentage') + 
  ylab('Score') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('25.png',p)
p <- ggplot(showData, aes(x=percentageDone, y = sentiment.magnitude, group = Date)) + 
  geom_smooth(aes(colour = Date), se=FALSE)+
  ggtitle('Ben Fordham') + 
  xlab('Show Percentage') + 
  ylab('Magnitude') + 
  labs(color="Shock Jock") + theme_bw()
p

ggsave('26.png',p)
Data Analysis Tutorial Random Forests R

Related

comments powered by Disqus