more ggplot

library("ggplot2")
library(palmerpenguins)

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

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

## Warning: Removed 2 rows containing non-finite values (`stat_smooth()`).

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

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

## Warning: Removed 2 rows containing non-finite values (`stat_smooth()`).

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

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

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

## Warning: Removed 2 rows containing non-finite values (`stat_smooth()`).

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

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

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

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

## Warning: Removed 2 rows containing non-finite values (`stat_smooth()`).

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

ggplot(data = penguins) +
  geom_point(mapping = aes(x=flipper_length_mm, y=body_mass_g, color=species))+
  facet_grid(sex~species)

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

ggplot(data = penguins) +
  geom_point(mapping = aes(x=flipper_length_mm, y=body_mass_g, color=species))+
  facet_grid(~sex)

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

Diamonds

ggplot(data = diamonds) + geom_bar(mapping = aes(x=cut, color=cut))

ggplot(data = diamonds) + geom_bar(mapping = aes(x=cut, fill=cut))

ggplot(data = diamonds) + geom_bar(mapping = aes(x=cut, fill=clarity))

ggplot(data = diamonds) + geom_bar(mapping = aes(x=color, fill=cut)) +
  facet_wrap(~cut)