plotDiablo {mixOmics} | R Documentation |
Function to visualise correlation between components from different data sets
plotDiablo(x, ncomp = 1, legend = TRUE, legend.ncol, ...) ## S3 method for class 'sgccda' plot(x, ncomp = 1, legend = TRUE, legend.ncol, ...)
x |
object of class inheriting from |
ncomp |
Which component to plot calculated from each data set. Has to
be lower than the minimum of |
legend |
boolean. Whether the legend should be added. Default is TRUE. |
legend.ncol |
Number of columns for the legend. Default to
|
... |
not used |
The function uses a plot.data.frame to plot the component ncomp
calculated from each data set to visualise whether DIABLO (block.splsda) is
successful at maximising the correlation between each data sets' component.
The lower triangular panel indicated the Pearson's correlation coefficient,
the upper triangular panel the scatter plot.
none
Amrit Singh, Florian Rohart, Kim-Anh Lê Cao, Al J Abadi
Singh A., Shannon C., Gautier B., Rohart F., Vacher M., Tebbutt S. and Lê Cao K.A. (2019). DIABLO: an integrative approach for identifying key molecular drivers from multi-omics assays.
block.splsda
and http://www.mixOmics.org/mixDIABLO
for more details.
data('breast.TCGA') Y = breast.TCGA$data.train$subtype data = list(mrna = breast.TCGA$data.train$mrna, mirna = breast.TCGA$data.train$mirna, prot = breast.TCGA$data.train$protein) # set number of component per data set ncomp = 3 # set number of variables to select, per component and per data set (arbitrarily set) list.keepX = list(mrna = rep(20, 3), mirna = rep(10,3), prot = rep(10,3)) # set up a full design where every block is connected design = matrix(1, ncol = length(data), nrow = length(data), dimnames = list(names(data), names(data))) diag(design) = 0 design BC.diablo = block.splsda(X = data, Y = Y, ncomp = ncomp, keepX = list.keepX, design = design) plotDiablo(BC.diablo, ncomp = 1)