Melanoma and Prostate Cancer Yule Q

#Plotting the correlations
library(corrplot)

#Generating p-values for the correlations
p_prca <- cor.mtest(yule.prca.filtered1)
p_melanoma <- cor.mtest(yule.melanoma.filtered)

corrplot.mixed(yule.prca.filtered1, 
               lower = "ellipse", 
               upper = "number", 
               number.cex = .6,
               order = 'FPC', 
               tl.pos = 'lt')

corrplot.mixed(yule.prca.filtered1, 
               lower = "ellipse", 
               upper = "number", 
               number.cex = .6,
               order = 'FPC', 
               tl.pos = 'lt',
               p.mat = p_prca$p,
               sig.level = c(0.05),
               insig = 'blank')

corrplot.mixed(yule.melanoma.filtered, 
               lower = "ellipse", 
               upper = "number", 
               number.cex = .75,
               order = 'FPC', 
               tl.pos = 'lt')

corrplot.mixed(yule.melanoma.filtered, 
               lower = "ellipse", 
               upper = "number", 
               number.cex = .75,
               order = 'FPC', 
               tl.pos = 'lt',
               p.mat = p_melanoma$p,
               sig.level = c(0.05),
               insig = 'blank')