Chapter 17 More Analysis UpVotes after Hidden Gem declaration

• Median Upvotes after Hidden Gem declaration is 9

• Highest Upvotes after Hidden Gem declaration is 1152

17.1 Box Plot [ removing Outliers]

s %>%
  filter(!is.na(Count)) %>%
  filter( Count < 100) %>%
      ggplot(aes(x = Count, fill = fillColor2)) +
      geom_boxplot() + 
      labs(x= ' [UpVotes]',y = ' [Count]', title = paste("Distribution of", ' UpVotes ')) +
      theme_fivethirtyeight() +
  theme(legend.position = "none") 

17.2 Density Plot

s %>%
  filter(!is.na(Count)) %>%
      ggplot(aes(x = Count, fill = fillColor2)) +
      geom_density(fill = "orange", bw = 0.01) +
      labs(x= ' [Up Votes]',y = ' [Count]', title = paste("Distribution of", ' Up Votes ')) +
      theme_fivethirtyeight() +
  theme(legend.position = "none") 

17.3 Summary Statistics for Hidden Gems UpVotes

Median Hidden Gem Up votes is 9 , and the Maximum Up votes received is 1152

summary(s$Count)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    1.00    5.00    9.00   25.14   21.00 1152.00      13

17.4 95% Confidence Interval for Hidden Gems UpVotes

95% Confidence Interval for a Hidden Gem Up Votes is between 15 and 35

# Calculate the mean and standard error
l.model <- lm(Count ~ 1, s)

# Calculate the confidence interval
confint(l.model, level=0.95)

##                2.5 %   97.5 %
## (Intercept) 15.00425 35.28146