我有一个向量说vec = c(1,1)
,我想将其(cbind)按列复制10次,这样我就可以得到类似于matrix(1, 10, 2)
的内容。是否有对vec
操作的函数可以执行此复制?即rep(vec,10)?
谢谢!
最佳答案
vec <- c(1,2)
rep(1,10) %*% t.default(vec)
[,1] [,2]
[1,] 1 2
[2,] 1 2
[3,] 1 2
[4,] 1 2
[5,] 1 2
[6,] 1 2
[7,] 1 2
[8,] 1 2
[9,] 1 2
[10,] 1 2
或就像@Joshua指出的那样:
tcrossprod(rep(1,10),vec)
一些基准:
library(microbenchmark)
microbenchmark(rep(1,10) %*% t.default(vec),
matrix(rep(vec, each=10), ncol=2),
t.default(replicate(10, vec)),
tcrossprod(rep(1,10),vec),times=1e5)
Unit: microseconds
expr min lq median uq max
1 matrix(rep(vec, each = 10), ncol = 2) 2.819 3.699 4.3970 5.3700 2132.240
2 rep(1, 10) %*% t.default(vec) 2.456 3.185 3.6750 5.5370 2121.746
3 t.default(replicate(10, vec)) 57.741 62.987 64.3740 65.9590 26654.678
4 tcrossprod(rep(1, 10), vec) 2.192 2.924 3.3745 5.2465 2145.709
关于r - 复制R中的向量,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/14858448/