Loadings graph with arbitrary components

scatter-loadings.do

// Get arbitrary loadings

// Data
sysuse auto.dta , clear
local variables length mpg price rep78

// Get labels
foreach var of varlist `variables' {
  local `var' : var label `var'
}

// Do PCA
pca `variables'

// Get loadings
estat loadings
mat loadings = r(A)

// Load loadings as data
clear
svmat loadings

// Label loadings
local x = 0
gen label = ""
foreach var in `variables' {
  local ++x
  replace label = "``var''" in `x'
}

// Graph
tw scatter loadings1 loadings3 , mlab(label)

// End