创建排序列表的中点列表

Question

我有一个数值的排序向量，我想创建一个包含所有对的中点的新向量。例如：

a <- c(1,2,3,4)

我想创建b 使其包含(1,2)、(2,3) 和(3,4) 的中点：

b <- c(1.5, 2.5, 3.5)

Answer 1

如 cmets 中的@Khashaa 所示，您可以在使用embed 后使用rowMeans，也可以使用“zoo”包中的rollmean。

例子：

a <- 1:4

rowMeans(embed(a, 2))
# [1] 1.5 2.5 3.5

library(zoo)
rollmean(a, 2)
# [1] 1.5 2.5 3.5

如果这些太晦涩难懂，类似的概念是只组合向量的两个版本，一个缺少第一个值，一个缺少最后一个值，然后使用rowMeans。

例子：

rowMeans(cbind(head(a, -1), tail(a, -1)))
# [1] 1.5 2.5 3.5