# Extrair dados do SIDRA-IBGE, a partir do API - Pequisa contas trimestrais - CNT ##

# tabelas 1621(c/ajuste sazonal) #

library(sidrar)

tabela1621=get_sidra(api = "/t/1621/n1/all/v/all/p/all/c11255/90687,90691,90696,90707,93404,93405,93406,93407,93408/d/v584%202")

# criar vetores para as séries coletadas #

series = c(90687,90691,90696,90707,93404,93405,93406,93407,93408)

names = c("Agro", "Ind", "Serv", "PIB", "Consumo", "Governo", "FBKF", "Exportacao", "Importacao")

# construir uma matriz onde as variáveis dispostas em linhas nas tabelas correspondam a colunas na matriz e os valores das linhas correspondam às observações#

pib_sa = matrix(NA, ncol = length(series), 

                nrow = nrow(tabela1621)/length(series))

## fazer loop para levar as observações de cada série da tabela para a matriz ##

for (i in 1:length(series)) {

  pib_sa[,i]<- tabela1621$Valor[tabela1621$`Setores e subsetores (Código)`

                                ==series[i]]

  

}

# dar nomes às colunas #

colnames(pib_sa) = names

## transformar em séries temporais ##

pib_sa <- ts(pib_sa, start=c(1996,01), freq=4)

## apresentação gráfico ##

library("ggplot2")

autoplot(pib_sa[,4])

 "Error: Objects of type ts not supported by autoplot." ##