Gráficos con gatos en R con CatterPlots

Librería

Autor principal

David Gibbs

Función catplot
Función multicat
Función rainbowCats

Función `catplot`

El paquete CatterPlots contiene varias funciones para crear gráficos con gatos en R. La función más básica es catplot, que puede ser usada para crear un gráfico con la figura de un gato. Ten en cuenta que los gatos elegidos pueden ser elegidos seleccionando un número de entre 1 y 11 (ver la siguiente sección para ver las posibles opciones).

# install.packages("remotes")
# remotes::install_github("Gibbsdavidl/CatterPlots")
library(CatterPlots)

# Datos de muestra
x <- seq(0, 15, 0.5)
y <- sin(x)

catplot(x, y,
        cat = 2,       # Tipo de gato
        catcolor = 2,  # Color del gato
        type = "line", # "line" o "justcats"
        linecolor = 1) # Color de la línea

Función catplot en R

En caso de que quieras agregar más gatos sobre tu gráfico anterior puedes usar la función cats, que se comporta de manera similar a la función points, pero tendrás que pasar un objeto catplot a la función y las nuevas coordenadas y argumentos.

# install.packages("remotes")
# remotes::install_github("Gibbsdavidl/CatterPlots")
library(CatterPlots)

# Datos de muestra 
x <- seq(0, 15, 0.5)
y <- sin(x)

obj <- catplot(x, y,
        cat = 2,
        catcolor = 2,
        type = "line")

# ¡Agregando más gatos!
cats(obj,      # Objeto catplot
     4.5, 0.8, # Coordenadas
     cat = 3,
     catcolor = 3)

Agregando más gatos a un gráfico en R

Además, la función morecats permite agregar incluso más gatos con diferentes colores y formas.

# install.packages("remotes")
# remotes::install_github("Gibbsdavidl/CatterPlots")
library(CatterPlots)

# Datos de muestra
x <- seq(0, 15, 0.5)
y <- sin(x)

obj <- catplot(x, y,
       cat = 2,
       catcolor = 2,
       type = "line")

# ¡Agregando más gatos!
morecats(obj,       # Objeto catplot
         x, cos(x), # Coordenadas
         cat = 1:11,
         catcolor = 1:11,
         type = "line")

Función morecats en R

Función `multicat`

Una alternativa a catplot es multicat. Esta función permite especificar más de un tipo de gato a la vez. Como es posible crear lo mismo que con catplot, recomendamos usar esta función, ya que proporciona más flexibilidad.

Usando la función multicat de CatterPlots para agregar varios gatos en R

# install.packages("remotes")
# remotes::install_github("Gibbsdavidl/CatterPlots")
library(CatterPlots)

grid <- expand.grid(0.5:3.5, 0.5:2.5)
x <- grid$Var1
y <-  grid$Var2

multicat(xs = x, ys = y, # Coordenadas
         cat = 1:11,     # Tipo de gato
         catcolor = 1,   # Color del gato
         size = 0.15)    # Tamaño del gato

Función `rainbowCats`

Por último, la librería contiene una función llamada rainbowCats para crear un gráfico con Nyan Cat en R, tal y como se muestra a continuación:

# install.packages("remotes")
# remotes::install_github("Gibbsdavidl/CatterPlots")
library(CatterPlots)

# Datos
x <- -10:10
y <- -x ^ 2

# Gráfico
rainbowCats(x, y,
            yspread = 0.05,
            xspread = 0.05,
            ptsize = 2,
            catshiftx = 0.5,
            catshifty = -0.1,
            canvas = c(0, 1.5, -1, 1.5))