library(pls)
set.seed(1)
model <- plsr(hp~mpg+disp+drat+wt+qsec, data=mtcars, scale=TRUE, validation="CV",ncomp=3)
coefplot(model, ncom = 1:3, legendpos = "bottomright")