PENGUINS

CORRELATION BEETWEN BILL LENGTH AND FLIPPER LENGTH

ggplot(penguins, aes(x=flipper_length_mm, y=bill_length_mm, color=species)) +
  geom_point() +
  geom_smooth(method=lm) +
  labs(x="Flipper Length (mm)", y="Bill Length (mm)")

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_smooth()`).

## Warning: Removed 2 rows containing missing values or values outside the scale range
## (`geom_point()`).

FLIPPER LENGTH ACROSS DIFFERENT SPECIES

ggplot(penguins, aes(y=flipper_length_mm, color=species)) +
  geom_boxplot() +
  labs(x="Flipper Length (mm)", y="count")

## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_boxplot()`).