make_pca_plot_34(pca_object, correlation_data, ...)

Same as make_pca_plot but for axes 3–4.

visualisation

Args:pca_object — PCA resultcorrelation_data — loadings

make_pca_plot_34 <- function(pca_object, correlation_data, multAx1, multAx, title) {
  legend_text <- paste0(
    "Space occupied by:\n",
    "50% = ", round(pca_object$ALLDensity[1, "0.5"], 2), "\n",
    "99% = ", round(pca_object$ALLDensity[1, "0.99"], 2)
  )
  PCA_plot_34(pca_object$PCoA, correlation_data, multAx1, multAx, title, legend_text)
}