rodolfoalmeida01

library(tidyverse)
library(lubridate)
library(plotly)

# LE DADOS ----------------------------------------------------------------

gastos_dataset <- read_csv("Gastos federais com redes sociais - Núcleo Jornalismo - 7.dez.2021 - dados.csv") %>% 
  janitor::clean_names()

# Remove estornos

rodolfoalmeida01

library(tidyverse)
library(plotly)
library(ggrepel)

# LENDO DADOS ----------------------------------------------------------------

# DISPONÍVEIS EM https://www.kaggle.com/moraesvic/tiktok-data-from-most-followed-accounts-2022
tt_data <- read_csv("~/tt_data.csv")

# CLASSIFICANDO -------------------------------------------------------