22/11, 2020

Trabajemos con las áreas protegidas

githubURL <- ("https://raw.githubusercontent.com/Curso-programacion/Tarea_1/master/Protected_Areas.rds")
download.file(githubURL, "PA.rds", method = "curl")
PA <- readRDS("PA.rds")
## [1] TRUE

ggplot2

  • ggplot(data.frame, aes(nombres de columna))
    • geom_algo(argumentos, aes(columnas))
    • theme_algo() estilo
  • Personalización de ejes y leyendas
  • Dos links para aprender mas.
library(tidyverse)
ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = DESIG)) + 
    theme_classic()

Ejemplo

Que diablos es aes() y por que +?

  • en ggplot2 cada vez que mencionamos una columna debe ser dentro de aes()
  • ggplot2 es el paquete mas antiguo del tidyverse, %>% no existia

Argumentos para geoms

  • color: color de líneas o puntos
  • alpha: transparencia, de 0 (transparente) a 1 (sólido)
  • size: tamaño de puntos
  • shape: típo de punto
  • fill: color dentro de un área (barras, intervalos)

color

ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = DESIG)) + 
    theme_classic()

alpha

ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = DESIG), 
    alpha = 0.5) + theme_classic()

Arreglemoslo un poco

Eje y con números en vez de con exponente

ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = DESIG)) + 
    theme_classic() + scale_y_continuous(labels = scales::comma)

Eje y logarítmico

ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = DESIG)) + 
    theme_classic() + scale_y_log10(labels = scales::comma)

size

ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point(aes(size = hp)) + 
    theme_classic()

shape

ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = IUCN_CAT, 
    shape = IUCN_CAT)) + theme_classic() + scale_y_log10(labels = scales::comma)

fill

ggplot(PA, aes(x = IUCN_CAT, y = TERR_AREA)) + geom_boxplot(aes(fill = IUCN_CAT), 
    notch = T) + theme_bw() + scale_y_log10(label = scales::comma)

Una variable categórica una continua

Una variable categórica una continua

  • geom_boxplot
  • geom_jitter
  • geom_violin
  • geom_bar

geom_jitter

ggplot(iris, aes(x = Species, y = Sepal.Width)) + geom_jitter(aes(color = Species))

geom_violin

ggplot(iris, aes(x = Species, y = Sepal.Width)) + geom_violin(fill = "red")

Se pueden combinar

ggplot(iris, aes(x = Species, y = Sepal.Width)) + geom_violin() + 
    geom_jitter(aes(color = Species))

Pero el orden importa

ggplot(iris, aes(x = Species, y = Sepal.Width)) + geom_jitter(aes(color = Species)) + 
    geom_violin()

Como reordenar las variables

fct_reorder (Reordenar por otra variable)

ggplot(iris, aes(x = fct_reorder(Species, Sepal.Width), 
    y = Sepal.Width)) + geom_boxplot(aes(fill = Species), 
    notch = T) + theme_bw()

fct_reorder (cont)

ggplot(iris, aes(x = fct_reorder(Species, Sepal.Width), 
    y = Sepal.Width)) + geom_boxplot(aes(fill = Species), 
    notch = T) + theme_bw() + xlab("lo que se me ocurra")

fct_relevel

ggplot(iris, aes(x = fct_relevel(Species, "setosa", 
    "virginica"), y = Sepal.Width)) + geom_boxplot(aes(fill = Species), 
    notch = T) + theme_bw() + xlab("lo que se me ocurra")

Apliquemoslo al Rmd

incluirlo en rmd con leyenda abajo

Agregar referencias a imagenes con bookdown

  • Para tablas es igual pero con (tab:Nombre)

Dos variables continuas

  • geom_point
  • geom_smooth
  • geom_line
  • geom_rug

geom_point y geom_smooth

data("mtcars")
ggplot(mtcars, aes(x = wt, y = mpg)) + geom_smooth() + 
    geom_point()

geom_smooth, method

data("mtcars")
ggplot(mtcars, aes(x = wt, y = mpg)) + geom_smooth(method = "lm") + 
    geom_point()

Varios gráficos juntos

Como combinar gráficos con facet_wrap

ggplot(PA, aes(x = STATUS_YR, y = TERR_AREA)) + geom_point(aes(color = DESIG)) + 
    theme_bw() + scale_y_log10(labels = scales::comma) + 
    labs(x = "Año", y = "Área en hectáreas", title = "Áreas protegidas de Chile") + 
    facet_wrap(~IUCN_CAT)

Mapas en ggplot2

Mapas en ggplot2