I like to use correlation plot using corrplot function with correlation coefficients printed in the cells (using addCoef.col and addCoefasPer
corrplot
addCoef.col
addCoefasPer
If you're not too picky, you could also leave the background set to white and make your addCoef.col = "white" instead of "grey" as you have it originally. That would eliminate the need for the ordering and ifelse statements.
addCoef.col = "white"
"grey"