用R中的负值计算索引

Question

我必须计算不同值的索引。值应介于0到100之间。

这很好，只要向量中的数字均为正数即可：

x <- c(30, 25, 10, 20, 30)

print(x * (100 / abs(mean(x))))
[1] 130.43478 108.69565  43.47826  86.95652 130.43478

但是，对于负值，我得到的是负指数：

x <- c(-5, 25, 10, 20, 30)

print(x * (100 / abs(mean(x))))
[1] -31.25 156.25  62.50 125.00 187.50

我已经尝试将最小值的绝对值添加到最小值

 x + abs(min(x))

当值是正数时，这会导致错误的值，所以我认为我在这里错了。

你能帮我吗？