R11.R

library(ggplot2)
library(palmerpenguins)

ggplot(data = penguins) +
  geom_smooth(aes(x = flipper_length_mm, y = body_mass_g))
  geom_point(mapping=aes(x=flipper_length_mm,y=body_mass_g))

ggplot(data=penguins)+
  geom_smooth(mapping=aes(x=flipper_length_mm,y=body_mass_g,linetype=species))