In octmedina/ksnet: Herramientas para el día a día en KSNET

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
#library(palmerpenguins)
#data(penguins)

ksnet

El objetivo del paquete ksnet es simplificar las rutinas de trabajo analítico de KSNET. El objetivo es incluir elementos como:

Gráficos sencillos para análisis exploratorio de datos usando ggplot2
Funciones auxiliares para la limpieza y análisis de datos
Plantillas para presentaciones, informes y resúmenes ejecutivos
Plantillas para gráficas
Funciones para ayudar a exportar datos y resultados en formatos accesibles
etcétera

Instalación

Se puede instalar la versión en desarrollo desde GitHub con:

# install.packages("devtools")
devtools::install_github("octmedina/ksnet")

Gráficos

Este es un ejemplo básico que muestra cómo resolver un problema común: hacer una gráfica con datos. Empecemos con un histograma.

library(ksnet)
library(palmerpenguins)
library(ggplot2)

## Plotting a histogram of penguin bill length

ksnet_hist(penguins, bill_length_mm)

La función se puede usar con la pipe también. Aquí hay una gráfica de barra.

library(dplyr)

## Simple barplot
penguins %>%
    group_by(species) %>%
    count() %>%
    ksnet_bar(species, n)

Y finalmente, scatterplots. La función viene preparada para incluir el color estándar de KSNET, así como la plantilla de gráficos. El objeto que genera es un ggplot, así que se pueden añadir títulos y etiquetas fácilmente:

## Simple scatterplot
penguins %>%
    ksnet_scatter(bill_length_mm, flipper_length_mm) +
    labs(title = "Pingüinos KSNET",
         subtitle = "Según con la EPA")

Themes

También podemos utilizar themes, o plantillas de gráficas.

ksnet_scatter(penguins, bill_length_mm, flipper_length_mm) + 
  labs(title = "Esto es un ejemplo",
       subtitle = "Y esto un subtítulo") +
  theme_ksnet()

Paletas de colores

Por último, hemos creado paletas de colores. Por ahora hay dos: ksnet_classic y ksnet_bright. Para visualizarlas, basta con utilizar la función color_ksnet.

color_ksnet("classic")

color_ksnet("bright")

Este es el aspecto que tiene cuando lo combinamos con una gráfica.

penguins %>%
    group_by(species) %>%
    count() %>%
    ggplot(aes(species, n, fill = species)) + 
  geom_col() +
  labs(title = "Pingüinos una vez más",
       subtitle = "Con subtítulo") +
  theme_ksnet() +
  scale_fill_ksnet_discrete()

ggplot(penguins, aes(bill_length_mm, flipper_length_mm, color = species)) + 
  geom_point() +
  labs(title = "This is a sample plot",
       subtitle = "And this is the subtitle") +
  theme_ksnet() +
  scale_color_ksnet_discrete()

Escalas continuas

Para visualizar variables continuas, tenemos varias escalas disponibles. La escala predefinida está basada en el verde KSNET, pero también tenemos:

Verde
Amarillo
Rojo
Gris

color_ksnet("verde")

color_ksnet("gris")

ggplot(penguins, aes(bill_length_mm, flipper_length_mm, color = body_mass_g)) + 
    geom_point() +
    theme_ksnet() +
    scale_color_ksnet_continuous("verde") +
    labs(title = "Escala monocolor con verde KSNET")

Además de las escalas monocolor, tenemos dos escalas bicolor:

Verde y amarillo
Rojo y amarillo

color_ksnet("verde_amarillo")

Algunos ejemplos:

ggplot(penguins, aes(bill_length_mm, flipper_length_mm, color = body_mass_g)) + 
    geom_point() +
    theme_ksnet() +
    scale_color_ksnet_continuous("verde_amarillo") +
    labs(title = "Escala bicolor con verde y amarillo")

ggplot(penguins, aes(bill_length_mm, flipper_length_mm, color = body_mass_g)) + 
    geom_point() +
    theme_ksnet() +
    scale_color_ksnet_continuous("rojo_amarillo") +
    labs(title = "Escala bicolor con rojo y amarillo")