El paquete hexbin
En R base es posible crear gráficos hexbin con la librería hexbin, que contiene una función del mismo nombre para crear un objeto hexbin que se puede dibujar con la función plot.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y)
plot(hex)
Número de clases
El argumento xbins controla el número de clases. El valor por defecto es 30.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y, xbins = 20)
plot(hex)
Personalización de colores
Color de borde
El color del borde de los hexágonos se puede personalizar con el argumento border.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y)
plot(hex, border = 4)
Paleta de colores
La paleta de colores es por defecto gris y se puede personalizar pasando una paleta de colores al argumento colramp. En el siguiente ejemplo estamos pasando 12 colores de la paleta viridis de la función hcl.colors.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y)
plot(hex, colramp = colorRampPalette(hcl.colors(12)))Leyenda
Ancho de la leyenda
El argumento legend permite personalizar el ancho de la leyenda por defecto. Sin embargo, si el valor es demasiado pequeño la leyenda se cortará. El valor por defecto es 1.2.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y)
plot(hex, legend = 0.9)
Tamaño del texto de la leyenda
También puedes personalizar el tamaño del texto de la leyenda con lcex.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y)
plot(hex, lcex = 0.9)
Eliminar la leyenda
Por último, si quieres eliminar la leyenda establece el argumento legend como FALSE.
# install.packages("hexbin")
library(hexbin)
# Datos
set.seed(1)
x <- rnorm(5000)
y <- rnorm(5000)
hex <- hexbin(x, y)
plot(hex, legend = FALSE,
colramp = colorRampPalette(hcl.colors(12, "GnBu")))
