These two functions provide a nicely formatted output of the PC’s from FactoMineR, as well as the communalities

 #TO USE THIS FUNCTION
 #Use the PCA function from FactomineR package and
 #pass in the pca object into Pass in a vector
 #Result will be the vector of min_max_normalization
 #
 Example:
  
 Usage: communality(data)
 Example: p = PCA(houses)
 communality(p)
 
To display the PC's in a cleaner format
Example:  
 #Usage: display_pc(p, cutoff, rnd)
 #p - pca object
 #cutoff - cutoff value
 #rnd - rounding significant digits
 #
 
 Example: p = PCA(houses)
 display_pc(p, .5, 4)

http://blogs.5eanalytics.com/RCode/PCA_functions.R