Pairs plots using ggpairs

This funciton 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,
  upper_fun = NULL,
  lower_fun = NULL,
  ...
)

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
alpha

passed to ggplot2::geom_histogram
fill

passed to ggplot2::geom_histogram
col

passed to ggplot2::geom_histogram
label_fun

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

function to use for upper argument
lower_fun

function to use for lower argument
...

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)
#> Loading required namespace: GGally
#> Registered S3 method overwritten by 'GGally':
#>   method from   
#>   +.gg   ggplot2
#> `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'