library(ggplot2)
download.file(url = "https://raw.githubusercontent.com/bit2r/bitData/main/data-raw/penguins.csv", destfile = "penguins.csv")
penguins <- read.csv("penguins.csv")
penguins |>
ggplot(aes(물갈퀴_길이, 부리_깊이, colour = 종명칭)) +
geom_point() +
geom_smooth(method = "lm")