Scatter Chart

Installation

Development version from GitHub:

GitHub: https://github.com/zpio/ggexplorer

Show/Hide code

remotes::install_github("zpio/ggexplorer")

Show/Hide code

library(ggexplorer)
library(dplyr)

Examples

Penguins Dataset

Show/Hide code

data <- palmerpenguins::penguins
data

Basic Chart

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length"
)

Color

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  color = "orange",
  title = "Flipper and bill length"
)

Opacity

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  alpha = 0.5
)

Size

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  size = 2
)

Fill by

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species
)

Highlight

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  highlight = c("Gentoo")
)

Legend Position

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  legend_position = "top" # "none"
)

Smooth

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  smooth = TRUE
)

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  smooth = TRUE,
  method = "loess",
  se = TRUE,
)

Facet

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  facet_var = species
)

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  facet_var = island
)

Scales

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  facet_var = species,
  scales = "free"
)

Compare

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  facet_var = species,
  compare = TRUE
)

Axis transformation

Show/Hide code

data_gap <- gapminder::gapminder %>% 
  filter(year=="2002") %>% dplyr::select(-year)

data_gap <- data_gap %>%
  mutate(pop=pop/1000000) %>%
  arrange(desc(pop))


scatter_chart(
  data = data_gap, 
  x = gdpPercap, 
  y = lifeExp, 
  fill_var = continent,
  title = "GDPpercap vs Life Exp",
  size = 2,
  trans_x = "log10"
)

Color scales

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species
) +
  ggplot2::scale_color_viridis_d()

Interactive

Show/Hide code

scatter_chart(
  data = data, 
  x = flipper_length_mm, 
  y = bill_length_mm,
  title = "Flipper and bill length",
  fill_var = species,
  interactive = TRUE
)