重新缩放两个数据集并合并为一个

Question

我需要重新设置两组变量的标度：1个变量从-2.5到2.5，另一组变量从0到1到1:10，其中均值和SD（公用）均值= 2，SD = 4.5，使用R有什么可以帮助的吗？预先感谢！

我尝试了简单的scale（x）公式来获取z得分，然后重新设置x（x）公式，将新比例设置为1:10。但是，我找不到在重新缩放时将均值和SD设置为公共值的方法，因此这两个数据集是可比较的。

attach (WGI)
summary (WGI$PV_1996)
Vector1 <- c(WGI$PV_1996)
x<- Vector1

scale(x)

rescale<- function(x)(x-min(x))/(max(x)-min(x)) *10
rescale (scale(x))
sd (scale(x))
summary (scale(x))
dataout <-rescale(x)
print(dataout)

write.csv(dataout, file="RescaledWGI_1996.csv")

预期结果：包括两个重新缩放的原始数据集的组合数据集。