矩阵功能

Question

如何获得一个以矩阵和矢量作为输入的函数，并执行以下操作

v<-c(1,2,4)
     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    3    6

出局应为：

     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    2    5
[4,]    3    6
[5,]    3    6
[6,]    3    6
[7,]    3    6

Answer 1

您可以使用rep通过向量（'v'）

复制矩阵（'m1'）的行

m1[rep(1:nrow(m1), v),]
#     [,1] [,2]
#[1,]    1    4
#[2,]    2    5
#[3,]    2    5
#[4,]    3    6
#[5,]    3    6
#[6,]    3    6
#[7,]    3    6

数据

m1 <- matrix(1:6, ncol=2)
v<-c(1,2,4)