The Bachelorette Eps. 6, 7 e 8 – pretendentes à ocasião – dados e drama em R

cupom com desconto - o melhor site de cupom de desconto cupomcomdesconto.com.br

[ad_1]

Vencedores e perdedores

De maneira semelhante à última postagem, levei mais 3 episódios para eu conseguir reunir coragem para escrever uma postagem no blog. O nível de drama, como de costume, atingiu um recorde histórico. No entanto, vamos dar uma olhada no que significa ser um competidor em termos de seguidores no Instagram assim que você sair do programa.

Aqui está um gráfico mostrando os seguidores de todos os competidores (dimensionado para fins de comparação) e você notará que a linha rosa muda para cinza quando a pessoa pega o machado grande e feio.

WinnersVsLosers.png

Há um padrão óbvio que se destaca. Assim que você inicia o show, as curvas do seguidor do instagram se achatam. Embora isso fosse esperado, é incrivelmente drástico. O principal outlier aqui é Dale Moss (no entanto, ele saiu sem ser expulso).

A moral da história é …

Se você vai ganhar a vida se tornando um influenciador de mídia social do Instagram que vende produtos de lixo por dinheiro, você precisa manter essas rosas fluindo.

Diversão com R

Eu queria mostrar esses números em uma tabela com uma tabela R divertida. Usando o pacote {kableExtra}, consegui baixar todas as imagens do usuário, executar alguns cálculos básicos em seus seguidores no início de suas carreiras para se / quando eles começaram até hoje. É uma mesa longa e louca como se poderia supor, mas é um ótimo recurso.

cupom com desconto - o melhor site de cupom de desconto cupomcomdesconto.com.br

All_user_data.png

# Code for the table

insta_changes %>%
  mutate(pic="") %>%
  mutate(followers_at_start = scales::number(followers_at_start, accuracy = 1, big.mark = ','), 
         followers_at_departure = scales::number(followers_at_departure, accuracy = 1, big.mark = ','), 
         followers_latest = scales::number(followers_latest, accuracy = 1, big.mark = ',')) %>% 
  select(` ` = pic, Name = name, Status = status, Start = followers_at_start, Departure = followers_at_departure, Latest = followers_latest, `% Change` = change_latest_pct) %>%
  kbl(booktabs = TRUE, longtable = TRUE, align = 'c') %>%
  kable_styling(latex_options = c("hold_position", "repeat_header"), bootstrap_options = c('striped')) %>%
  kable_paper(full_width = FALSE) %>%
  column_spec(1, image = spec_image(insta_changes$pic_filename, 200, 200))

Leia Também  Por que você precisa de um IDE de classe mundial para fazer ciência de dados sérios



[ad_2]

cupom com desconto - o melhor site de cupom de desconto cupomcomdesconto.com.br