Create the explained variance plot
plotVariance(pca)
pca
PCA values
Plot variance as an Highcharter object
pca <- prcomp(USArrests) plotVariance(pca)