[et_pb_section admin_label="section"][et_pb_row admin_label="row"][et_pb_column type="4_4"][et_pb_text admin_label="Texto" background_layout="light" text_orientation="left" use_border_color="off" border_color="#ffffff" border_style="solid"]
Hoje de manhã publiquei um código para um gráfico de área utilizando os indexadores da dívida bruta brasileira. O gráfico, entretanto, não estava empilhado, apenas sobreposto. Como a soma da participação dos indexadores tem que dá 100%, um gráfico empilhado talvez fique mais ilustrativo, não é mesmo? Para isso, é preciso fazer algumas modificações no código. Ilustro abaixo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ## Carregar pacoteslibrary(ggplot2)library(XLConnect)library(reshape2)library(xts)## Importar dadostemp = tempfile()data = unzip(temp, files='Partggp.xls')data = loadWorkbook(data)dbgg = readWorksheet(data, sheet = 1, header = TRUE, colTypes = 'numeric')## Retirar linhas e colunas que não interessamdbgg = dbgg[, -c(1,2,6,10,15,16,17)] # Retirar colunas desimportantesdbgg = dbgg[complete.cases(dbgg),-1] # Retirar linhas com NA e coluna 1## Nomear colunascolnames(dbgg) = c('Cambial Interna', 'Cambial Externa', 'IGP-M', 'IGP-DI', 'IPCA', 'SELIC', 'TJLP', 'TR', 'PRÉ-FIXADO')## Criar vetor de datas para o gráfico dates = seq(as.Date('2006-12-01'), as.Date('2016-12-01'), by='1 month')## Ordenar séries conforme vetor de datas e criar novo data frame dbgg = xts(dbgg, order.by=dates)dbgg = data.frame(time = index(dbgg), melt(as.data.frame(dbgg)))colnames(dbgg) = c('time', 'Indexador', 'value')## Gerar gráficotheme_set(theme_bw())ggplot(dbgg, aes(x = time, y = value)) + geom_area(aes(colour = Indexador, fill = Indexador))+ xlab('')+ylab('Participação Percentual')+ labs(title='Indexadores da Dívida Bruta brasileira', caption='analisemacro.com.br') |
E o resultado vai abaixo...
[/et_pb_text][/et_pb_column][/et_pb_row][et_pb_row admin_label="row" make_fullwidth="off" use_custom_width="off" width_unit="on" use_custom_gutter="off" padding_mobile="off" background_color="#8300e9" allow_player_pause="off" parallax="off" parallax_method="off" make_equal="off" parallax_1="off" parallax_method_1="off" column_padding_mobile="on"][et_pb_column type="1_2"][et_pb_text admin_label="Texto" background_layout="dark" text_orientation="left" use_border_color="off" border_color="#ffffff" border_style="solid"]
No nosso Curso de Análise de Conjuntura usando o R os alunos aprendem a coletar, tratar, analisar e apresentar dados macroeconômicos usando o poder do R/RStudio e do Beamer/LaTeX. Saiba mais sobre esse curso inovador clicando no botão abaixo!
[/et_pb_text][et_pb_button admin_label="Botão" button_url="https://analisemacro.com.br/cursos-de-r/analise-de-conjuntura/" url_new_window="off" button_text="Ir para o Curso de Análise de Conjuntura" button_alignment="center" background_layout="dark" custom_button="off" button_letter_spacing="0" button_use_icon="default" button_icon_placement="right" button_on_hover="on" button_letter_spacing_hover="0"] [/et_pb_button][/et_pb_column][et_pb_column type="1_2"][et_pb_text admin_label="Texto" background_layout="dark" text_orientation="left" use_border_color="off" border_color="#ffffff" border_style="solid"]
Relatórios, apresentações e exercícios macroeconométricos usando extensivamente o R são feitos no âmbito do Clube do Código, o espaço de compartilhamento de códigos da Análise Macro. Ainda não conhece o Clube?! Saiba mais abaixo.
[/et_pb_text][et_pb_button admin_label="Botão" button_url="https://analisemacro.com.br/clube-do-codigo/" url_new_window="off" button_text="Ir para o Clube do Código" button_alignment="center" background_layout="dark" custom_button="off" button_letter_spacing="0" button_use_icon="default" button_icon_placement="right" button_on_hover="on" button_letter_spacing_hover="0"] [/et_pb_button][/et_pb_column][/et_pb_row][/et_pb_section]
