向量的圆位移 n [重复]

Question

说我有

a <- c(1, 2, 3)

我希望通过将 b 向“左”方向移动距离 1 从 a 导出 b

b
# [1] 2 3 1

我的意思是你：

1. 将“a”传递给输出“b”的函数
2. 您使用某种索引短片可以做到这一点。
3. 例如，b <- c(2, 3, 1) 不是我正在寻找的解决方案

什么是优雅/高效的方法？

Answer 1

您可以使用head 和tail 来创建这样的函数：

shifter <- function(x, n = 1) {
  if (n == 0) x else c(tail(x, -n), head(x, n))
}

用法：

a <- 1:4

shifter(a)
# [1] 2 3 4 1

shifter(a, 2)
# [1] 3 4 1 2

（或者，library(SOfun); shifter(a)，您可以从here 获得SOfun）。