fernandobarbalho’s gists

fernandobarbalho / etl_dados_funcoes.r

Created June 22, 2026 14:24

Busca dados de execução orçamentárias por função de governo

fernandobarbalho / deficit_previdencia_tesouror

Created June 12, 2026 15:11

Script para processar dados de prefidência a partir do siconfi


	library(tesouror)
	library(tidyverse)

	ano_ini<- 2019
	ano_fim<- 2025

	anexos_previdencia<-
	(tesouror::get_anexos() %>%
	filter(str_detect(anexo, "RREO-Anexo 04"),

fernandobarbalho / solar_energy_brasil.rmd

Created May 19, 2026 21:25

Sunspot of power

	---
	title: "Transição na geração de energia elétrica"
	subtitle: "Números e geografia da opção brasileira pela energia renovável"
	output:
	html_document:
	code_folding: hide
	date: "2025-08-15"
	---

	```{r setup, include=TRUE}

fernandobarbalho / sazonalidade_doencas_respiratorias.rmd

Created April 24, 2026 19:08

Script para gerar gráfico com sazonalidade de doenças respiratórias

	---
	title: "storytelling_sazonalidade_respiratoria"
	author: "Fernando Almeida Barbalho"
	date: "2026-04-24"
	output: html_document
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
	library(tidyverse)

fernandobarbalho / data_fao.rmd

Created April 14, 2026 21:09

Visualize data from FAO about trade in food

	knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)

	library(tidyverse)
	library(colorspace)


	#Fonte dos dados:
	#https://www.fao.org/faostat/en/#data

	dados_fao_producao_alimentos_qty <-

fernandobarbalho / vulnerabilidade_especies.r

Created April 13, 2026 20:54

Dataviz about species vulnerability in Brazil


	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)

	library(tidyverse)
	library(colorspace)

	fauna_uc_26nov2025_trabalho <- readRDS("~/github/30DayChartChallenge/fauna_uc_26nov2025_trabalho.rds")

	categorias_validas<- c("Menos Preocupante (LC)", "Quase Ameaçada (NT)", "Vulnerável (VU)","Em Perigo (EN)", "Criticamente em Perigo (CR)", "Regionalmente Extinta (RE)" )

fernandobarbalho / biotrade.rmd

Created April 12, 2026 15:37

Alluvial chart describing biological goods exported by Brazil


	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
	library(tidyverse)
	brazil_full <- readRDS("/cloud/project/brazil_full.rds")
	eu_countries_2021 <- readRDS("/cloud/project/eu_countries_2021.rds")
	mundo_bio_trade <- readRDS("/cloud/project/mundo_bio_trade.rds")
	continente_bio_trade <- readRDS("/cloud/project/continente_bio_trade.rds")

fernandobarbalho / extrai_anfavea.r

Created March 31, 2026 12:37

Script para extrair dados da ANFAVEZ

	library(tidyverse)
	library(readxl)

	endereco_base<- "https://anfavea.com.br/docs/siteautoveiculos"

	nomme_sheet<- "III. Licenciamento Combustível"

fernandobarbalho / extracao_e_grafico_dolar.rmd

Last active March 16, 2026 10:21

Script para consumir dados de cotação do dolar e gerar gráfico com informações dinâmicas no título, subtítulo e caption

	---
	title: "Gráfico da cotação do dolar"
	author: "Fernando Almeida Barbalho"
	date: "2026-01-27"
	output: html_document
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)

fernandobarbalho / processa_microdados_sus_sih_rd

Created January 20, 2026 18:46

Script para gerar arquivos com dados anuais de internação hospitalar do sus

	library(microdatasus)
	library(tidyverse)


	estados<- c("AC","AL","AM", "AP", "BA","CE","DF","ES","GO","MA","MT","MS","MG","PA","PB", "PR","PE","PI","RJ","RS","RN","RO","RR","SC","SP","SE","TO")


	download.file("ftp://ftp.datasus.gov.br/dissemin/publicos/SIHSUS/200801_/Doc/IT_SIHSUS_1603.pdf", destfile = "documentacao.pdf", mode= "wb", method = "libcurl" )

Fernando Almeida Barbalho fernandobarbalho