Script para gerar ranking de favoritos no twitter

ranking_favoritos_twitter.r

library(rtweet)
library(dplyr)
library(ggplot2)

df_favorite<- rtweet::get_favorites("@barbalhofernand", n=3000)


users_favorite<-
df_favorite %>% 
  group_by(screen_name, user_id) %>%
  summarise(
    quant_fav= n()
  )

users_favorite %>%
  ungroup() %>%
  top_n(10,quant_fav) %>%
  mutate(screen_name = reorder(screen_name,quant_fav)) %>%
  ggplot() + 
  geom_col(aes(x= screen_name, y= quant_fav)) +
  theme_light() +
  coord_flip() +
  labs(
    title = "Gráfico da galera que eu mais favorito no twitter",
    y = "Número de posts favoritados",
    x= "Screen name da galera"  )