我的目标是产生这样的序列：
<img ng-repeat="img in Images| filter :pro.id" ng-src="{{img.imagePath}}"/>
本质上，我有一个保持不变的序列，但我希望一次一个空格移动一个值。
显然我可以用类似于我所做的方式写出来，但是我的真实序列要大得多，所以这并不实用。我对此的搜索有点徒劳，所以任何建议都会受到赞赏。感谢
答案 0 :(得分：4)
你可以创建一个矩阵并替换对角线，即
m1 <-matrix(data = 9, nrow = 8, ncol = 8)
diag(m1) <- 1
m1
# [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
#[1,] 1 9 9 9 9 9 9 9
#[2,] 9 1 9 9 9 9 9 9
#[3,] 9 9 1 9 9 9 9 9
#[4,] 9 9 9 1 9 9 9 9
#[5,] 9 9 9 9 1 9 9 9
#[6,] 9 9 9 9 9 1 9 9
#[7,] 9 9 9 9 9 9 1 9
#[8,] 9 9 9 9 9 9 9 1
其中一个内容是：
`diag<-`(matrix(data = 9, nrow = 8, ncol = 8),1)
答案 1 :(得分：2)
您可以使用stats::filter：
x <- c(1, rep(9, 7))
for (i in 1:8) print(x <- c(filter(x, c(0, 1), circular = TRUE, sides = 1)))
#[1] 9 1 9 9 9 9 9 9
#[1] 9 9 1 9 9 9 9 9
#[1] 9 9 9 1 9 9 9 9
#[1] 9 9 9 9 1 9 9 9
#[1] 9 9 9 9 9 1 9 9
#[1] 9 9 9 9 9 9 1 9
#[1] 9 9 9 9 9 9 9 1
#[1] 1 9 9 9 9 9 9 9
显然，如果序列中有两个以上不同的值，这会移动所有值，并且可能不是您要查找的值。你的问题有点不清楚。
答案 2 :(得分：1)
选项为embed
embed(c(rev(v1),rev(v1)), length(v1))
# [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
#[1,] 1 9 9 9 9 9 9 9
#[2,] 9 1 9 9 9 9 9 9
#[3,] 9 9 1 9 9 9 9 9
#[4,] 9 9 9 1 9 9 9 9
#[5,] 9 9 9 9 1 9 9 9
#[6,] 9 9 9 9 9 1 9 9
#[7,] 9 9 9 9 9 9 1 9
#[8,] 9 9 9 9 9 9 9 1
#[9,] 1 9 9 9 9 9 9 9
embed(c(rev(v2),rev(v2)), length(v2))
# [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
# [1,] 1 5 5 5 3 2 5 7
# [2,] 7 1 5 5 5 3 2 5
# [3,] 5 7 1 5 5 5 3 2
# [4,] 2 5 7 1 5 5 5 3
# [5,] 3 2 5 7 1 5 5 5
# [6,] 5 3 2 5 7 1 5 5
# [7,] 5 5 3 2 5 7 1 5
# [8,] 5 5 5 3 2 5 7 1
# [9,] 1 5 5 5 3 2 5 7
v1 <- c(1, 9, 9, 9, 9, 9, 9, 9)
v2 <- c(1, 5, 5, 5, 3, 2, 5, 7)
答案 3 :(得分：1)
获得相同结果的另一种方法是：
x <- c(1, rep(9, 7))
sapply(8:1, function(n)c(tail(x,-n),head(x,n)))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,] 1 9 9 9 9 9 9 9
[2,] 9 1 9 9 9 9 9 9
[3,] 9 9 1 9 9 9 9 9
[4,] 9 9 9 1 9 9 9 9
[5,] 9 9 9 9 1 9 9 9
[6,] 9 9 9 9 9 1 9 9
[7,] 9 9 9 9 9 9 1 9
[8,] 9 9 9 9 9 9 9 1