r - 如何重新缩放点矩阵？

Question

现在我是这样做的:

d = approx(density(csvdata[,'X'],n=5000),xout=csvdata[,'X'])
dfact = 40/max(d$y)
for(i in 1:nrow(csvdata)) {
  d$y[i] = (d$y[i]*dfact)-20
}

我在这里做的是重新调整密度函数，它总是高于 0，显示在我图表底部的下方，即 -20，并且总是适合顶部，即 +20，所以我更容易能够发现线路中的任何违规行为。正如您所看到的，我正在通过循环执行此操作，但也许有一些内置的衬里？

Answer 1

y 是一个向量，* 和 - 是向量化函数，所以你不需要遍历数字向量一次做一个计算。一次性全部完成:

d$y <- (d$y * dfact) - 20

或更好(没有d$)，

d <- within(d, y <- (y * dfact) - 20)

dfact 是一个标量(R 中长度为 1 的向量，因为它没有单独的标量概念)，但 R 将展开 dfact(回收 是 R 中的正确术语) 到所需的长度，以允许上述计算正常进行。