See Package Demo

Loading Libraries

library("see")
library("dplyr")
library("ggplot2")

# Exp for plotting data using subset of English data
library(languageR)
English_df <- as.data.frame(english)
English_df_subset <- English_df %>%
  filter(WordCategory %in% c("N", "V")) %>%
  group_by(WordCategory) %>%
  slice_sample(n = 20) %>%
  ungroup()
#View(English_df)

Specialized Graphs

Half-violin Half-dot plot

https://easystats.github.io/see/reference/geom_violindot.html

p1 <- ggplot(English_df_subset, aes(x = WordCategory, y = RTlexdec, fill = WordCategory)) +
  geom_violindot(size_dots = 0.3) +
  scale_fill_material_d()

p1

Pool ball Points

https://easystats.github.io/see/reference/geom_poolpoint.html

ggplot(English_df_subset, aes(RTlexdec, RTnaming, colour = WordCategory)) +
  geom_poolpoint(label = row.names(English_df_subset)) +
  scale_color_flat_d() +
  theme_modern()

Radar Chart

https://easystats.github.io/see/reference/coord_radar.html

library(datawizard)  # for data_to_long() for Radar format

# Prepping data
radar_data <- English_df %>%
  group_by(AgeSubject) %>%
  summarise(
    RTlexdec = mean(RTlexdec, na.rm = TRUE),
    RTnaming = mean(RTnaming, na.rm = TRUE),
    CorrectLexdec = mean(CorrectLexdec, na.rm = TRUE)/5  # /5 for scaling
  )

radar_long <- data_to_long(
  radar_data,
  select = c("RTlexdec", "RTnaming", "CorrectLexdec")
)


ggplot(radar_long, aes(x = name, y = value, color = AgeSubject, group = AgeSubject)) +
  geom_polygon(fill = NA, linewidth = 2) +
  coord_radar(start = -pi / 3) # rotate

Layouts, Colors, and Themes

Patchwork (meshing plots together)

https://easystats.github.io/see/reference/plots.html

p1 <- ggplot(English_df_subset, aes(x = WordCategory, y = RTlexdec, fill = WordCategory)) +
  geom_violindot(size_dots = 0.3) +
  scale_fill_material_d()

p2 <- ggplot(English_df_subset, aes(x = WordCategory, y = RTlexdec, fill = WordCategory)) +
  geom_boxplot() +
  scale_fill_material_d()

p3 <- ggplot(English_df_subset, aes(x = WordCategory, y = RTlexdec, fill = WordCategory)) +
  geom_point2() +
  scale_color_material(discrete = FALSE)

# Fancy way to combine plot (can add titles and labels)
plots(p1, p2, p3,
  n_columns = 2,
  tags = c("Fig. 1", "Fig. 2", "Fig. 3"), # Adding titles to each plot
  title = "Example plots" # adding title
)

# Other ways to combine using equations
# / is under
# + is next to each other
(p1 + p2) / p3

Themes

Available themes:

• theme_azurelight

• theme_lucid

• theme_blackboard

• theme_modern

• theme_radar

• theme_abyss

# theme_azurelight.R
# theme_blackboard.R
# theme_lucid.R
# theme_modern.R
# theme_radar.R

p1 + theme_blackboard()

p1 + theme_abyss()

p1 + theme_modern()

Color Scales

https://easystats.github.io/see/articles/seecolorscales.html

English_df$random_group <- as.factor(sample(1:5, size = nrow(English_df), replace = TRUE))

pizza <- ggplot(English_df, aes(RTlexdec, RTnaming, colour = random_group)) +
  geom_point2(size = 2.5) +
  # Color scale pizza
  scale_color_pizza() +
  theme(
    # Can extract hex from theme color
    panel.background = element_rect(fill = pizza_colors("crust")), 
    plot.background = element_rect(fill = pizza_colors("crust")))

pizza