Dados do SIDRA

library(sidrar)

dados <- get_sidra(api="/t/6579/n1/all/v/9324/p/2022")

## All others arguments are desconsidered when 'api' is informed

head(dados)

##  [1] Nível Territorial (Código) Nível Territorial         
##  [3] Unidade de Medida (Código) Unidade de Medida         
##  [5] Valor                      Brasil (Código)           
##  [7] Brasil                     Variável (Código)         
##  [9] Variável                   Ano (Código)              
## [11] Ano                       
## <0 linhas> (ou row.names de comprimento 0)

Tabela

grafico <- data.frame(
  estado = c(
    "PI", "MA", "CE", "BA", "SP",
    "RJ", "MG", "RS", "PR", "PE"
  ),
  populacao = c(
    3300000,
    6800000,
    9200000,
    14900000,
    44400000,
    16000000,
    20500000,
    10800000,
    11400000,
    9000000
  )
)

# Gráfico

library(ggplot2)

ggplot(
  grafico,
  aes(
    x = estado,
    y = populacao
  )
) +
  geom_col(fill = "steelblue") +
  theme_light() +
  labs(
    title = "População dos Estados",
    x = "Estados",
    y = "População"
  )

# Mapa

library(maps)

map("world", "Brazil",
    col = "lightblue",
    fill = TRUE,
    bg = "white")

Atividade SIDRA

Dados do SIDRA

Tabela