使用unite（）重塑数据不会产生预期的结果

Question

目标是将包含100列x，y，z位置的非常宽的数据框转换为仅包含x，y和z 3列的数据框。

我已经成功地使用unite（）将非常宽的数据帧重塑为一个较窄的数据帧，但是由于某些非常规原因，这在这里不起作用。

#none of the names changed so I can just copy them
dimnames(abds2) <- dimnames(PLSR_model_1$coefficients)

#copy the model
New_plsr_model <- PLSR_model_1

#replace the coefficients
New_plsr_model$coefficients <- (abds2)

#Predict the values of new observations (not seen in the training set)
test_predicted_1 <- predict(New_plsr_model, ncomp = 21, newdata = test_data_1)

谢谢！