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) 
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
#> Warning: Removed 2 rows containing non-finite values (stat_bin).

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

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

## 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")
#> Warning: Removed 2 rows containing missing values (geom_point).

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()
#> Warning: Removed 2 rows containing missing values (geom_point).

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()
#> Warning: Removed 2 rows containing missing values (geom_point).

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")
#> Warning: Removed 2 rows containing missing values (geom_point).

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")
#> Warning: Removed 2 rows containing missing values (geom_point).

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")
#> Warning: Removed 2 rows containing missing values (geom_point).