展平或平滑一系列数字[关闭]答案

【问题标题】：Flatten or Smoothing a Series of Numbers [closed]展平或平滑一系列数字[关闭]
【发布时间】：2018-09-29 05:04:07
【问题描述】：

我的问题是关于平滑或展平一系列数字。我已经搜索了选项，但没有找到任何选项。在我的示例数据集中：

dat <- list(-21,-18,-16,-10,-8,-4,-3,-2,-1,-0.9,-0.7,-0.5,-0.3,-0.1,0,0.2,0.4,0.6,0.8,1,2,4,6,9,13,17,20,24)

我想对数据进行对数展平或平滑，可能是这样的（数字四舍五入到小数点后一位）：

smooth<-list(-4.6,-4.2,-4,-3.2,-2.8,-2,-1.7,-1.4,-1,-0.9,-0.8,-0.7,-0.5,-0.3,0,0.4,0.6,0.8,0.9,1,1.4,2,2.4,3,3.6,4.1,4.5,4.9)

上面是原来的平方根；但是，必须更改负数的符号，而且在我的情况下，1 和 -1 之间的数字的绝对值实际上增加而不是减少也是不可取的。我能够构建上述内容，但这并不容易或不理想，我想知道是否有更简单更好的程序。谢谢。

【问题讨论】：

这里的目标到底是什么？如何决定哪种平滑/展平方法比其他方法更好？这是一个专门的编程问题吗？还是关于数据转换以进行分析更一般？如果是后者，您可能应该通过Cross Validated 咨询统计学家以获得更好的答案。
如果缺少某些东西，我深表歉意。问题和答案对我来说似乎很清楚和有帮助。

标签： r flatten smoothing

【解决方案1】：

这样的事情怎么样：

sign(dat)*log(abs(dat)+1)

plot(dat, col = "red")
points(smooth, col = "green")
points(sign(dat)*log(abs(dat)+1), col = "blue")
legend(x = 1, y = 23, legend = c("original", "smooth", "missuse"),
       fill = c("red", "green", "blue"))

使用 log2：

数据：

dat <- c(-21,-18,-16,-10,-8,-4,-3,-2,-1,-0.9,-0.7,-0.5,-0.3,-0.1,0,0.2,
          0.4,0.6,0.8,1,2,4,6,9,13,17,20,24)

smooth <- c(4.6,-4.2,-4,-3.2,-2.8,-2,-1.7,-1.4,-1,-0.9,-0.8,-0.7,-0.5,-0.3,0,0.4,0.6,
            0.8,0.9,1,1.4,2,2.4,3,3.6,4.1,4.5,4.9)

【讨论】：

非常感谢。并且可以以指数方式改变系列或将其相乘。例如：sign(dat)*log(abs(dat)+1)^2*2