PLot 1

Chart B

Additional:

  scale_x_continuous(labels = scales::comma) +
  labs(x = 'Mean Views',
       y = NULL,
       title = 'Top 10 YouTube Channels in Entertainment') +
  theme_minimal() +
  theme(legend.position = "none") 

Chart C