ggimprensa

Temas dos principais jornais brasileiros para o ggplot2.

Esse pacote foi inspirado no pacote 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:

# install.packages("remotes")
remotes::install_github("brunomioto/ggimprensa")

Uso

Os temas existentes no pacote atualmente são:

• tema_folha() referente ao jornal Folha de São Paulo

• tema_g1() referente ao jornal g1 - Globo

• tema_nexo() referente ao Nexo Jornal

• tema_poder360() referente ao jornal Poder 360

library("ggplot2")
library("ggimprensa")

Folha de São Paulo

p1 <- pinguins_grupos |> 
  ggplot(aes(x = ilha, y = n)) +
  geom_col(fill = "#f47080")+
  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_folha()

p1

Paleta de cores - Folha de São Paulo

Para a Folha, também é possível colorir os gráficos com a paleta de cores do jornal. Para isso, utilize a função scale_fill_folha() para preenchimentos e scale_color_folha() para contornos.

p1_paleta <- pinguins |> 
  group_by(especie, ilha) |> 
  count() |> 
  ggplot(aes(x = ilha, y = n)) +
  geom_col(aes(fill = especie))+
  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)))+
  scale_fill_folha()+
  tema_folha()

p1_paleta

G1

p2 <-  pinguins_grupos |> 
  ggplot(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

p3 <-  pinguins_grupos |> 
  ggplot(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

Poder 360

p4 <-  pinguins_grupos |> 
  ggplot(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()

p4

Caso queira adicionar a faixa superior ao gráfico, utilize a função linha_poder360()

linha_poder360(p4)

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 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 para que eu possa ajudar!

Créditos

Esse pacote foi criado por Bruno Mioto

A hex logo foi criada por Ícaro Bernardes