How to plot a PCA plot for output of principal() function in psych package in R?

Question

I have mixed data containing polytomous, ditomous and continuous data. I obtained a correlation matrix using mixedCor() function of psych package and then used the \'rho\' corre