Los pingüinos molan

24/11/22

Intro

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:

# install.packages("palmerpenguins")
library(palmerpenguins)
df <- palmerpenguins::penguins

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áfico
p <- ggplot(data = df, 
       mapping = aes(x = bill_depth_mm, y = body_mass_g, color = species)) +
     geom_point()
p

Segundo

#- segundo gráfico
p <- p + geom_smooth(method = "lm", se = FALSE) 

p

El último

#- tercer gráfico
p + geom_smooth(method = "lm", se = FALSE, color = "black")