library(ggplot2)
library(dplyr)
library(modeldata)
data(biomass)
biomass_ad <- apd_pca(biomass[, 3:8])
autoplot(biomass_ad)
# Using selectors in `...`
autoplot(biomass_ad, distance) + scale_x_log10()
autoplot(biomass_ad, matches("PC[1-2]"))
Run the code above in your browser using DataLab