-
Notifications
You must be signed in to change notification settings - Fork 1
/
README.Rmd
138 lines (100 loc) · 4.37 KB
/
README.Rmd
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "80%",
dpi = 96
)
```
# **ggimprensa** <img src="man/figures/logo.png" align="right" height="120" />
<!-- badges: start -->
[](https://www.brunomioto.com.br/pix)
[](https://twitter.com/BrunoHMioto)
[](https://github.com/brunomioto/ggimprensa/actions)
[](https://app.codecov.io/gh/brunomioto/ggimprensa?branch=master)
<!-- badges: end -->
Temas dos principais jornais brasileiros para o ggplot2.
Esse pacote foi inspirado no pacote [ggthemes](https://github.com/jrnold/ggthemes).
O objetivo deste pacote é ajudar os usuários a criar gráficos mais bonitos de forma fácil e rápida.
## Instalação
Você pode instalar o pacote ggimprensa com a seguinte função:
``` r
# install.packages("devtools")
devtools::install_github("brunomioto/ggimprensa")
```
## Uso
Os temas existentes no pacote atualmente são:
- `tema_poder360()` referente ao jornal [Poder 360](https://www.poder360.com.br/)
- `tema_g1()` referente ao jornal [g1 - Globo](https://g1.globo.com/)
- `tema_nexo()` referente ao [Nexo Jornal](https://www.nexojornal.com.br/)
```{r pacote, warning=FALSE}
library("ggplot2")
library("ggimprensa")
```
```{r, echo=FALSE, message=FALSE, warning=FALSE}
#install.packages("dados")
library("dados")
library("dplyr")
pinguins_grupos <- pinguins %>%
group_by(ilha) %>%
count()
```
### Poder 360
```{r exemplo_poder360}
p1 <- ggplot(pinguins_grupos, aes(x = ilha, y = n)) +
geom_col(fill = "#fd541e")+
labs(
title = "Número de pinguins por ilha",
subtitle = "Registros feitos de 2007 a 2009",
caption = "Fonte: {palmerpenguins} traduzido no pacote {dados}"
)+
scale_y_continuous(expand = expansion(mult = c(0,0.05)))+
tema_poder360()
p1
```
Caso queira adicionar a faixa superior ao gráfico, utilize a função `linha_poder360()`
```{r linha}
linha_poder360(p1)
```
### G1
```{r exemplo_g1}
p2 <- ggplot(pinguins_grupos, aes(x = ilha, y = n)) +
geom_col(fill = "#c6160d")+
labs(
title = "Número de pinguins por ilha",
subtitle = "Registros feitos de 2007 a 2009",
caption = "Fonte: {palmerpenguins} traduzido no pacote {dados}"
)+
scale_y_continuous(expand = expansion(mult = c(0,0.05)))+
tema_g1()
p2
```
### Nexo
```{r exemplo_nexo}
p3 <- ggplot(pinguins_grupos, aes(x = ilha, y = n)) +
geom_col(fill = "#15c5ce")+
labs(
title = "Número de pinguins por ilha",
subtitle = "Registros feitos de 2007 a 2009",
caption = "Fonte: {palmerpenguins} traduzido no pacote {dados}"
)+
scale_y_continuous(expand = expansion(mult = c(0,0.05)))+
tema_nexo()
p3
```
## Sobre fake news
Todos sabemos que as **fake news** são um problema nos dias de hoje, e alguns podem levantar o (válido) ponto sobre este pacote contribuir com isso.
No entanto, alguns pontos devem ser levados em consideração:
- O pacote [ggthemes](https://github.com/jrnold/ggthemes) já existe há um bom tempo, com temas dos principais jornais do mundo.
- Para criar uma notícia falsa, é muito mais simples criar uma montagem com o tema dos gráficos do que programar com ggplot2. Além disso, sabemos que uma simples montagem já é mais que o suficiente para uma notícia falsa circular.
- O **objetivo** principal deste pacote é ajudar os usuários a criar gráficos mais bonitos de forma fácil e rápida. Não são todos os usuários que sabem quais as melhores práticas de visualização de dados, mas reconhecem que alguns jornais brasileiros fazem um ótimo trabalho e podem utilizar isso como um ponto de partida.
## Melhorias e sugestões
Tem alguma ideia para o pacote ou sugestão de como posso melhorá-lo? Crie uma nova [issue](https://github.com/brunomioto/ggimprensa/issues) para que eu possa ajudar!
## Créditos
Esse pacote foi criado por [Bruno Mioto](https://twitter.com/BrunoHMioto)
A hex logo foi criada por [Ícaro Bernardes](https://twitter.com/IcaroBSC)