Ejemplo

Esta es la verdad de los números de empleo: desde junio 2014 hasta junio 2019 se perdieron 67 mil empleos. Nada ganamos con hacernos los distraídos, nada ganamos jugando con los números. La realidad es terca. A los problemas hay que mirarlos a los ojos, reconocerlos y encararlos. pic.twitter.com/b7fh7xTePq

— Ernesto Talvi (@ernesto_talvi) August 9, 2019

Elementos visuales

Elementos visuales

Elementos visuales

• Dos rectángulos rojos.

Mapeos estéticos

Mapeos estéticos

• El alto de la barra mide la cantidad de empleados en dos momentos del tiempo.

Datos

Datos

empleo <- tibble(
  ocupados = c(1654, 1586),
  fecha = c('jun-14', 'jun-19'),
)
empleo

## # A tibble: 2 x 2
##   ocupados fecha 
##      <dbl> <chr> 
## 1     1654 jun-14
## 2     1586 jun-19

Ggplot()

ggplot(empleo)

Mapeo

ggplot(empleo, 
       aes(fecha, ocupados))

Geoms (columnas)

ggplot(empleo, 
       aes(fecha, ocupados)) + 
  geom_col()

• Los ejes no empiezan en 0.
• Bajo ratio de información tinta.

Detalles

talvi <- ggplot(empleo, aes(fecha, ocupados)) + 
  geom_col(fill = "orange", width =0.5) + 
  geom_text(aes(x=fecha, y=ocupados, label=ocupados), nudge_y = 10) +
  coord_cartesian(ylim=c(1540, 1670)) + 
  scale_y_continuous(
    labels = scales::number_format(big.mark = '.', decimal.mark = ',')
  ) + 
  theme_minimal() +
  labs(x="Fecha", y = "Miles", 
       caption = "Fuente: Ine.",
       title = "Cantidad de ocupados") + 
  theme(
    plot.title = element_text(hjust = 0.5),
    plot.caption = element_text(hjust = -.1)
  )

talvi

Replicar

Solución

ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy, color = class))

Solución

## Warning: The shape palette can deal with a maximum of 6 discrete values
## because more than 6 becomes difficult to discriminate; you have 7.
## Consider specifying shapes manually if you must have them.

## Warning: Removed 62 rows containing missing values (geom_point).

ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy, shape = class))

## Warning: The shape palette can deal with a maximum of 6 discrete values
## because more than 6 becomes difficult to discriminate; you have 7.
## Consider specifying shapes manually if you must have them.

## Warning: Removed 62 rows containing missing values (geom_point).

Otros Geoms

Boxplots

ggplot(data = mpg, mapping = aes(x = class, y = hwy)) + 
  geom_boxplot()

Mapas

nz <- map_data("nz")

## 
## Attaching package: 'maps'

## The following object is masked from 'package:purrr':
## 
##     map

ggplot(nz, aes(long, lat, group = group)) +
  geom_polygon(fill = "white", colour = "black")

Escalas

• Los aesthetics mapean del dato al atributo estético de la figura. En este caso es: (alto de la barra -> nivel de ocupación)

            posición en el eje x -> fecha)

• Las escalas pasan del atributo estético al dato. (alto -> nivel de ocupación)

Escalas

• Qué tienen en común la leyenda y las etiquetas de los ejes?
• Son escalas

¿Cómo seguir?

Bibliografía

• R for Data Science (Capítulo 3)

Introducción a ggplot y algunos piques.

• Kieran Healy: Visualización con ejemplos de R
• Claus Wilke: Visualización
• Roger Peng: Programación en ggplot