playing with geomtextpath

geom_labelsmooth_penguins.R

library(palmerpenguins)
library(ggplot2)
library(geomtextpath)


ggplot(penguins,
       aes(x = body_mass_g, y = flipper_length_mm,
           color = species, label = species)) +
  geom_point(alpha = 0.2) +
  geom_labelsmooth(method = "lm", boxlinewidth = 0) +
  scale_color_manual(values = c("darkorange","purple","cyan4")) +
  theme_classic()