<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">Oi Alex,<div class=""><br class=""></div><div class="">O formato ts (time series) não é suportado diretamente pelo ggplot2. Instale o pacote ggfortify e tente o código abaixo:</div><div class=""><br class=""></div><div class=""><br class=""></div><div class=""><div class="">library(ggfortify)</div><div class="">autoplot(pib_sa[,4])</div><div class=""><br class=""></div><div class="">Abraço,</div><div class="">Jasmine</div><div class=""><br class=""></div><div><br class=""><blockquote type="cite" class=""><div class="">Em 2 de set de 2018, à(s) 22:53, Alex Brito via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br" class="">r-br@listas.c3sl.ufpr.br</a>> escreveu:</div><br class="Apple-interchange-newline"><div class=""><div class=""><div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:16px;" class=""><div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:16px;" class=""><div class=""><div class="">Prezados, </div><div class=""><br class=""></div><div class="">sou iniciante no R, e ao elaborar uma apresentação com o pacote ggplot2, através da função autoplot, apareceu esta mensagem <span class="">"Error: Objects of type ts not supported by autoplot." Achei estranho pq esse erro. Segue abaixo descrição do script e também o aquivo anexo que pode ser executado em qualquer RStudio. Agradeço, de antemão, a ajuda de vocês!!</span></div><div class=""><span class=""><br class=""></span></div><div class=""><span class=""><span class=""><div class=""># Extrair dados do SIDRA-IBGE, a partir do API - Pequisa contas trimestrais - CNT ##</div><div class=""># tabelas 1621(c/ajuste sazonal) #</div><div class=""><br class=""></div><div class="">library(sidrar)</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">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")</div><div class=""><br class=""></div><div class=""># criar vetores para as séries coletadas #</div><div class=""><br class=""></div><div class="">series = c(90687,90691,90696,90707,93404,93405,93406,93407,93408)</div><div class="">names = c("Agro", "Ind", "Serv", "PIB", "Consumo", "Governo", "FBKF", "Exportacao", "Importacao")</div><div class=""><br class=""></div><div class=""># 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#</div><div class=""><br class=""></div><div class="">pib_sa = matrix(NA, ncol = length(series), </div><div class=""> nrow = nrow(tabela1621)/length(series))</div><div class=""><br class=""></div><div class="">## fazer loop para levar as observações de cada série da tabela para a matriz ##</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">for (i in 1:length(series)) {</div><div class=""> pib_sa[,i]<- tabela1621$Valor[tabela1621$`Setores e subsetores (Código)`</div><div class=""> ==series[i]]</div><div class=""> </div><div class="">}</div><div class=""><br class=""></div><div class=""># dar nomes às colunas #</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">colnames(pib_sa) = names</div><div class=""><br class=""></div><div class="">## transformar em séries temporais ##</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">pib_sa <- ts(pib_sa, start=c(1996,01), freq=4)</div><div class=""><br class=""></div><div class="">## apresentação gráfico ##</div><div class=""><br class=""></div><div class="">library("ggplot2")</div><div class="">autoplot(pib_sa[,4])</div><div class=""><br class=""></div><div class=""> "Error: Objects of type ts not supported by autoplot." ##</div></span><br class=""></span></div><div class=""><br class=""></div><div class="ydp2d96d124signature"><div style="font-size:16px;font-family:Helvetica, Arial, sans-serif;" class=""><div class=""><b class="">Alex Brito</b></div><div class=""><b class="">Departamento de Economia - UFMA</b></div><div class=""><b class="">Grupo de Estudos e Pesquisa em Macroeconomia - GRAMMA</b></div><div class=""><b class="">Cidade Universitária Dom Delgado,<br class=""></b></div><div class=""><b class="">Av. dos Portugueses, 1966, Bacanga,</b></div><div class=""><b class="">São<span style="color:rgb(34, 34, 34);font-family:arial, sans-serif;" class=""> Luís - MA, 65065-545</span></b></div></div></div></div></div></div></div><span id="cid:9486f937-db96-8d76-310e-9306236448e0@yahoo.com"><meuescript.R></span>_______________________________________________<br class="">R-br mailing list<br class=""><a href="mailto:R-br@listas.c3sl.ufpr.br" class="">R-br@listas.c3sl.ufpr.br</a><br class="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br class="">Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></div><br class=""></div></body></html>