R PLS套件的得分和权重

Question

我想使用pls软件包进行plsr分析。我必须承认，我是这个软件包的一般入门者，并且一般来说都是R。因此，我的首要目标只是使用他们使用的数据从本文中检索结果。 https://ufile.io/uad6p

我的目标是绘制图4、5和6。 我使用了这段代码：

df = read.csv("Data.csv", header = TRUE, sep = ";", na ="NA")
df <- as.data.frame(df)
parameters <-(df[2:8])
results <-(df[9])
library(pls)
test <- plsr(as.matrix(results) ~ as.matrix(parameters), ncomp=2, validation = "CV", jackknife = TRUE, method="oscorespls")
scores(test)
Yscores(test)
coefficients(test)

不幸的是，我似乎获得了截然不同的价值观。特别是对于X分数（t [1]和t [2]），这似乎没有被标准化。 有人知道我做错了吗？还有可能绘制VIP图吗？

非常感谢您！