代码之家 › 专栏 › 技术社区 › Stephen

展平或平滑一系列数字[闭合]

smoothing flatten r

0

Stephen · 技术社区 · 7 年前

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

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之间的数字的绝对值实际上是增加了,而不是减少了,这也是不可取的。我能够构建上述内容,但这并不容易,也不理想,我想知道是否有更简单更好的程序。非常感谢。

1 回复 | 直到 7 年前

1

missuse 7 年前

这样怎么样:

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)

推荐文章

Stephen · 展平或平滑一系列数字[闭合]

7 年前

Joke O. · 使用R中的savitzky golay/sgolayflt(信号)平滑rasterstack

9 年前

ronnow · 苹果网站视差效果

9 年前

BlueLemon · 如何使用Matplotlib从灰度图像创建曲面图?

10 年前

Nimal Naser · 如何使用SciPy/Numpy过滤/平滑?

10 年前

user3787315 · 使用“rollmedian”函数作为“arima”函数的输入

11 年前

Mary · 重排分布函数Matlab

11 年前