I run sPLSDA as the case study sPLSDA: SRBCT instruction but I got an error when returning the arrow plot.
library(mixOmics) library(ggplot2) data(srbct) splsda.srbct <- splsda(srbct$gene, srbct$class, ncomp = 3, keepX = c(9,280,30)) plotArrow(splsda.srbct)
“Error: Aesthetics must be either length 1 or the same as the data (63): x, y, xend and yend
rlang::last_error() to see where the error occurred.”
How can I fix it?