auto_ggiso: Make isotope plot.

In Hide-Fun/gglab: Make plots for research more simply

Description

Make isotope plot with errobar automatically. If you regulate more options, use ggiso().

Usage

auto_ggiso(
  .data,
  .mapping,
  .xlim,
  .ylim,
  .shape_val = c(16, 17, 24),
  .xlab = expression(paste(italic("δ"^{     13 }), "C", " (‰)")),
  .ylab = expression(paste(italic("δ"^{     15 }), "N", " (‰)")),
  .cross_tip = 0.15,
  .hjust = 0,
  .vjust = 0,
  .x_breaks = scales::breaks_extended(6),
  .y_breaks = scales::breaks_extended(6),
  .stroke = 0.82,
  .point_size = 3,
  .linesize = 0.55,
  .axis_size = 0.55,
  .family = "Arial",
  .lab_title_size = 15,
  .lab_text_size = 12,
  .label_size = 4,
  .ratio = 2/3,
  .multi = F,
  .scaling = F,
  .scale_var = NULL,
  ...
)

Arguments

.data	data
.mapping	mapping, wrapping by aes(), augments passing through geom_***.
.xlim	range of x axis.
.ylim	range of y axis.
.shape_val	shape of point, passing scale_shape_manual().
.xlab	title of x axis.
.ylab	title of y axis.
.cross_tip	width and height of errorbar.
.hjust	place of label (horizontal).
.vjust	place of label (vertical).
.x_breaks	break of x.
.y_breaks	break of y.
.stroke	edge of point
.point_size	size of point.
.linesize	width of line in errorbar.
.family	font family, default Arial.
.lab_title_size	axis title.
.lab_text_size	axis text.
.label_size	label size.
.ratio	ratio of plot.
.multi	logical
.scaling	logical
.scale_var	numeric
...	passed through theme().

Examples

library(ggplot2)
library(dplyr)

data("demo")

by_place <- demo %>%
  group_by(place, label) %>%
  summarise(across(where(is.numeric),
                   list(mean = mean, sd = sd),
                   .names = "{.fn}_{.col}"))

place_A <- by_place %>%
  filter(place == "A")

# make plot (default).
auto_ggiso(.data = place_A,
           .mapping = aes(x = mean_delta13C, y = mean_delta15N,
                          xmin = mean_delta13C - sd_delta13C,
                          xmax = mean_delta13C + sd_delta13C,
                          ymin = mean_delta15N - sd_delta15N,
                          ymax = mean_delta15N + sd_delta15N,
                          shape = label,
                          label = label),
          .xlim = c(-36, -26),
          .ylim = c(-6, 4),
          .family = NULL,
          .x_breaks = seq(-36, -26, 2),
          .y_breaks = seq(-6, 4, 2))

# make plot (manual).
auto_ggiso(.data = place_A,
           .mapping = aes(x = mean_delta13C, y = mean_delta15N,
                          xmin = mean_delta13C - sd_delta13C,
                          xmax = mean_delta13C + sd_delta13C,
                          ymin = mean_delta15N - sd_delta15N,
                          ymax = mean_delta15N + sd_delta15N,
                          shape = label,
                          label = label),
          .xlim = c(-36, -26),
          .ylim = c(-6, 4),
          .xlab = expression(paste(italic("δ"^{13}), "C", " (\u2030)")),
          .ylab = expression(paste(italic("δ"^{15}), "N", " (\u2030)")),
          .hjust = 0,
          .vjust = 0,
          .cross_tip = .3,
          .shape_val = c(24, 21, 16, 23),
          .stroke = 1,
          .axis_size = .8,
          .linesize = .8,
          .x_breaks = scales::breaks_extended(6),
          .y_breaks = scales::breaks_extended(6),
          .point_size = 3,
          .family = NULL,
          .label_size = 4,
          .lab_title_size = 15,
          .lab_text_size = 12,
          .ratio = 1/2)

Hide-Fun/gglab documentation built on Dec. 31, 2020, 1 p.m.