重新缩放矢量，不含均值，sd，min和max

Question

我有一个不对称的分布：

x <- c(rnorm(100, 0, 1),
     rnorm(100, 2.5, 0.5))

我想把它改成旧的＆＃34; 0＆＃34;价值现在是100而旧的＆＃34; 2＆＃34;价值现在是＆＃34; 15＆＃34;。但是，我想在不使用旧的或新的最小值/最大值的情况下进行此操作。

使用scale函数并不适用，因为它将均值转换为新值，并且我希望将特定值转换为新值。我无法让rescale做到这一点。

  plot(density(scale(x)*15+100))
  plot(density(scales::rescale(x, from=c(0, 2), to=c(100, 15))))