Hi @enzo and welcome!
Unfortunately, we only provide the VIP for each variable and up to a component, as given in
example(vip) (with a barplot).
X <- linnerud$exercise
Y <- linnerud$physiological
linn.pls <- pls(X, Y)
linn.vip <- vip(linn.pls)
beside = TRUE, col = c("lightblue", "mistyrose", "lightcyan"),
ylim = c(0, 1.7), legend = rownames(linn.vip),
main = "Variable Importance in the Projection", font.main = 4)
You might be able to tweak this output for your needs. At the moment we do not have more capacity for such enhancements.