diff --git a/figures/receita_total.png b/figures/receita_total.png new file mode 100644 index 0000000..1a41263 Binary files /dev/null and b/figures/receita_total.png differ diff --git a/scripts/plots-save.R b/scripts/plots-save.R index 2ed79d7..18c55b3 100644 --- a/scripts/plots-save.R +++ b/scripts/plots-save.R @@ -14,3 +14,4 @@ units <- "cm" # save plots -------------------------------------------------------------- ggsave(filename = "figures/receitas.png", plot = gg.receitas, height = 16.5, width = 16.5, units = units) +ggsave(filename = "figures/receita_total.png", plot = gg.rec_total, height = height, width = width, units = units) diff --git a/scripts/plots.R b/scripts/plots.R index 14a0a9d..2b5394a 100644 --- a/scripts/plots.R +++ b/scripts/plots.R @@ -45,6 +45,8 @@ data.raw %>% # scale_color_brewer(palette = ff.pal) + # scale_fill_brewer(palette = ff.pal) -gg + - geom_histogram(aes(total_receita), binwidth = .5) + +gg.rec_total <- gg + + geom_histogram(aes(total_receita), binwidth = .5, fill = ff.col) + + xlab(attr(analytical$total_receita, "label")) + + ylab("") + facet_wrap(~ evangelico)