ggplot_03

library(ggplot2)
library(palmerpenguins)

ggplot(data = penguins) +
  geom_point(mapping = aes(x=flipper_length_mm, y=body_mass_g, color=species))+
  labs(title = "Palmer Penguins: body mass vs flipper length", subtitle = "Sample of three Penguins Species", caption = "Data collected by Dr. Kristen Gorman")+
  annotate("text", x=220,y=3500, label= "Gentoos are the largest", color="dark blue", fontface="bold", size=4, angle=30)

## Warning: Removed 2 rows containing missing values (`geom_point()`).

p <- ggplot(data = penguins) +
  geom_point(mapping = aes(x=flipper_length_mm, y=body_mass_g, color=species))+
  labs(title = "Palmer Penguins: body mass vs flipper length", subtitle = "Sample of three Penguins Species", caption = "Data collected by Dr. Kristen Gorman")

p + annotate("text", x=220,y=3500, label= "Gentoos are the largest", color="dark blue", fontface="bold", size=4, angle=30)

## Warning: Removed 2 rows containing missing values (`geom_point()`).