2 Truco para infografías
En este apartado se expondrá como exportar por capas un gráfico de R a Power Point/ Photoshop. Este método puede resultar muy útil para realizar ciertas infografías, ya que en la herramienta de destino se puede modificar el formato del gráfico fácilmente.
Tomemos los datos de la población de España desde 2010 hasta 2022, para ello usaremos la API desarrollada para la obtención de datos. Para más información sobre esta, véase (Crespo 2024).
Buscar identificador de la serie. Abriendo los datos en la web del INE, vemos que el código identificador de la serie es
ECP320(véase cheatsheet de (Crespo 2024)).Cargar los datos usando función
ineapir::get_data_series().
# Verificar si el paquete está instalado
if (!require("ineapir")) remotes::install_github("es-ine/ineapir")
# Cargar paquete
library(ineapir)
# Cargar Serie Población ECP320
a <- get_data_series("ECP320", dateStart = "2002/01/01", unnest = TRUE, tip = "AM")
datos <- data.frame(
fecha = as.Date(a$Fecha),
pob = a$Valor
)
# Formateamos año y mes
datos$year <- format(datos$fecha, "%Y")
datos$month <- format(datos$fecha, "%m")
# Filtramos para tener sólo población a 1 de Enero
datos <- datos[datos$month == "01", ]- Crear gráfico que represente la población a lo largo de los años.
# Verificar si está instalado
if (!require("ggplot2")) install.packages("ggplot2")
library(ggplot2)
# Function to set numbers with marks and without scientific notation
marks_no_sci <- function(x) format(x, big.mark = ".", decimal.mark = ",", scientific = FALSE)
# Crear el gráfico de puntos
grafico <- ggplot(datos, aes(x = year, y = pob)) +
geom_point(stat = "identity", color = "#457e76") +
labs(title = "Población en España", x = "Año", y = "Población") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
scale_y_continuous(labels = marks_no_sci, limits = c(40000000, 50000000), breaks = seq(40000000, 50000000, by = 1000000))
grafico
FIGURA 2.1: Evolución de la población a lo largo de los años.
Ahora imaginar que un equipo quiere realizar una infografía con este gráfico. Se puede guardar como .svg de tal manera que sea un gráfico vectorial y se pueda abrir en aplicaciones como Photoshop o Power Point.
Veamos:
# Verificar si el paquete está instalado
if (!require("svglite")) install.packages("svglite")
library(svglite)
ggsave(file = "/Users/davpero/Desktop/grarfico.svg", plot = grafico)Por ejemplo: Pegamos el gráfico en Power Point y clickando con el botón derecho le damos a Grupo-> Desagrupar. Lo que conseguimos es dejar la imagen como elementos vectoriales independientes, tal y como se puede ver en la Figura \(\ref{fig:imagencapas}\)
FIGURA 2.2: Pegado del gráfico como imagen vectorial
Posteriormente, en Power Point, el equipo de infografías puede darle el formato deseado sin necesidad de tener que modificar el gráfico desde su código fuente (ggplot2). No obstante, estos cambios posibles se reducen a aspectos de formato tal como cambiar el tamaño de letra, colores, o eliminar elementos.
Veamos pues como eliminamos las rayas de fondo y cambiamos el tamaño y color de los textos:
FIGURA 2.3: Modificación del gráfico en Power Point