Vamos a utilizar datos del paquete palmerpenguins. El repo del paquete en CRAN está aquí, el repo de Github está aquí y la página web del paquete está aquí.
Los datos se pueden cargar en la memoria de de R/RStudio de esta forma:
El dataset contiene observaciones sobre un conjunto de 344 pingüinos de 3 especies. Hay 8 variables.
Los pingüinos molan
Vamos a ver una foto de un pingüinos
Un pingüino chulo
Algunos gráficos
Bueno pues vamos a hacer algún gráfico, pero claro antes he de cargar los paquetes
library(tidyverse)
Arreglo los datos
#- cojos datos de pingüinos y arreglo un poco df <- palmerpenguins::penguins %>% dplyr::select(species, bill_depth_mm, body_mass_g) %>% tidyr::drop_na()
Primer gráfico
#- primer gráficop <-ggplot(data = df, mapping =aes(x = bill_depth_mm, y = body_mass_g, color = species)) +geom_point()p
Segundo
#- segundo gráficop <- p +geom_smooth(method ="lm", se =FALSE) p
El último
#- tercer gráficop +geom_smooth(method ="lm", se =FALSE, color ="black")