Adding Aesthetics to Plots using Palmerpenguins Dataset

Practice using Rstudio

Formatting Included:
  • Color
  • Shape
  • Size
  • Alpha
  • Smooth line
  • Line Type
  • geom_jitter()

Load ggplot 2 and palmer penguins

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.1.3
library(palmerpenguins)
## Warning: package 'palmerpenguins' was built under R version 4.1.3

Plot variables are flipper length against body mass.

Add color to differentiate species

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g, color=species))
## Warning: Removed 2 rows containing missing values (geom_point).

Add different shapes to highlight different species

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g, shape=species))
## Warning: Removed 2 rows containing missing values (geom_point).

Add both color and shape to differentiate species

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g, shape=species, color=species))
## Warning: Removed 2 rows containing missing values (geom_point).

Add size to species

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g, shape=species, color=species, size=species))
## Warning: Using size for a discrete variable is not advised.
## Warning: Removed 2 rows containing missing values (geom_point).

Using alpha because it is a dense plot; allows some points to be more transparent than others

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g, alpha=species))
## Warning: Using alpha for a discrete variable is not advised.
## Warning: Removed 2 rows containing missing values (geom_point).

Changed the color of points in scatterplot to pink for fun

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g), color="pink")
## Warning: Removed 2 rows containing missing values (geom_point).

Created a smooth line to see trend

ggplot(data=penguins) + geom_smooth(mapping=aes(x=flipper_length_mm, y=body_mass_g), color="pink")
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## Warning: Removed 2 rows containing non-finite values (stat_smooth).

Combined both geom_smooth and geom_point to see both in one chart; used alpha for points, made smooth line pink

ggplot(data=penguins) + geom_point(mapping=aes(x=flipper_length_mm, y=body_mass_g, alpha=species)) + geom_smooth(mapping=aes(x=flipper_length_mm, y=body_mass_g), color="pink")
## Warning: Using alpha for a discrete variable is not advised.
## `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).

Added line type on geom_smooth to see different species

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).

Tried out geom_jitter to make points easier to find and prevent overlapping

ggplot(data=penguins) + geom_jitter(mapping=aes(x=flipper_length_mm, y=body_mass_g), color="pink")
## Warning: Removed 2 rows containing missing values (geom_point).