Este documento muestra cómo visualizar los datos del dataset de pingüinos usando diversos tipos de gráficos. Utilizaremos el paquete ggplot2 para la visualización.
# Instalar y cargar los paquetes necesarios
library(palmerpenguins)
library(ggplot2)
library(GGally)
library(dplyr)
library(tidyr)
library(palmerpenguins)
# Cargar el dataset de pingüinos
data("penguins")
# Limpiar los datos eliminando los valores faltantes
penguins_clean <- penguins %>%
drop_na()
# Histograma de la masa corporal
ggplot(penguins_clean, aes(x = body_mass_g, fill = species)) +
geom_histogram(binwidth = 200, color = "black", alpha = 0.7) +
labs(title = "Histograma de la Masa Corporal", x = "Masa Corporal (g)", y = "Frecuencia") +
theme_minimal()
# Gráfico de barras de las especies
ggplot(penguins_clean, aes(x = species, fill = species)) +
geom_bar() +
labs(title = "Número de Pingüinos por Especie", x = "Especie", y = "Conteo") +
theme_minimal()
# Gráfico de dispersión entre longitud y profundidad del pico
ggplot(penguins_clean, aes(x = bill_length_mm, y = bill_depth_mm, color = species)) +
geom_point() +
labs(title = "Gráfico de Dispersión de Longitud vs. Profundidad del Pico", x = "Longitud del Pico (mm)", y = "Profundidad del Pico (mm)") +
theme_minimal()
# Boxplot de la masa corporal por especie
ggplot(penguins_clean, aes(x = species, y = body_mass_g, fill = species)) +
geom_boxplot() +
labs(title = "Boxplot de la Masa Corporal por Especie", x = "Especie", y = "Masa Corporal (g)") +
theme_minimal()
# Gráfico de violín de la masa corporal por especie
ggplot(penguins_clean, aes(x = species, y = body_mass_g, fill = species)) +
geom_violin(trim = FALSE) +
labs(title = "Gráfico de Violín de la Masa Corporal por Especie", x = "Especie", y = "Masa Corporal (g)") +
theme_minimal()
# Gráfico de pares para las variables numéricas
ggpairs(penguins_clean, columns = 3:6, aes(color = species)) +
labs(title = "Gráfico de Pares de las Variables Físicas")
# Gráfico de densidad de la masa corporal por especie
ggplot(penguins_clean, aes(x = body_mass_g, fill = species)) +
geom_density(alpha = 0.7) +
labs(title = "Gráfico de Densidad de la Masa Corporal", x = "Masa Corporal (g)", y = "Densidad") +
theme_minimal()