Pairs plots using ggpairs

This function is a wrapper to GGally::ggpairs() with customized functions for upper and lower off-diagonal panels. See details for help on customizing some aspects of the off-diagonal plots.

pairs_plot(
  x,
  y,
  bins = 15,
  alpha = opts$histogram.alpha,
  fill = opts$histogram.fill,
  col = opts$histogram.col,
  label_fun = label_parse_label,
  lower_plot = pairs_lower_plot,
  upper_fun = NULL,
  lower_fun = NULL,
  diag = c("barDiag", "densityDiag", "blankDiag"),
  ...
)

eta_pairs(x, etas, ...)

Arguments

x

plotting data.frame

y

character col//label for pairs data; see col_label()

bins

passed to ggplot2::geom_histogram() to render the diagonal

alpha

passed to ggplot2::geom_histogram() or ggplot2::geom_density() to render the diagonal

fill

passed to ggplot2::geom_histogram() or ggplot2::geom_density() to render the diagonal

col

passed to ggplot2::geom_histogram() or ggplot2::geom_density() to render the diagonal

label_fun

labeller function that gets passed to GGally::ggpairs(); the default is based on parse_label() and thus allows latex expressions in the label (see examples)

lower_plot

function to create plots in the lower triangle; the should accept a single argument (a gg object) and return a gg object; see pairs_lower_plot() as an example; you probably want to use this argument (rather than lower_fun) if you want to customize how the plots on the lower triangle look

upper_fun

function to use for upper argument

lower_fun

function to use for lower argument; if you want to customize how the plots on the lower triangle look, you probably want to use the lower_plot argument

diag

how to render data on the diagonal; options are limited to those accepted by GGally::ggpairs() for continuous data (see that help topic)

...

passed to GGally::ggpairs()

etas

character col//label for pairs data; see col_label()

Value

The result from a ggpairs call (a single plot).

Details

This function requires the GGally package to be installed.

When the length of etas is one, arguments are passed to eta_hist() and that result is returned.

Use the options object to modify aspects of the smoother line: smooth.col, smooth.lwd, smooth.lty, smooth.method. Also, use the options object to control aspects of the points: scatter.col, scatter.size.

Examples

id <- pmplots_data_id()

etas <- c("ETA1//ETA-CL", "ETA2//ETA-VC", "ETA3//ETA-KA")

eta_pairs(id,etas)
#> `geom_smooth()` using formula = 'y ~ x'
#> `geom_smooth()` using formula = 'y ~ x'
#> `geom_smooth()` using formula = 'y ~ x'


df <- data.frame(x = rnorm(1000), y = rnorm(1000))

pairs_plot(df, c("x", "y"))
#> `geom_smooth()` using formula = 'y ~ x'


df2 <- dplyr::tibble(x = rnorm(100), y = x^2)

pairs_plot(df2, c("x//x", "y//x$^2$"))
#> Loading required namespace: latex2exp
#> `geom_smooth()` using formula = 'y ~ x'