R列向量合成矩阵

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

问，各位大神：
    R怎样将多个列向量合并成一个矩阵？（注：各个列向量为for循环产生，求如何用cbind(…)合成一个矩阵，这里列向量较多，不适合一个一个输入）
还请各大神不吝赐教，非常感谢~

附注：一小段程序：
c1=as.matrix(c(rep(0,0),rep(1,3),rep(0,15)))
c2=as.matrix(c(rep(0,3),rep(1,3),rep(0,12)))
c3=as.matrix(c(rep(0,6),rep(1,3),rep(0,9)))
c4=as.matrix(c(rep(0,9),rep(1,3),rep(0,6)))
c5=as.matrix(c(rep(0,12),rep(1,3),rep(0,3)))
c6=as.matrix(c(rep(0,15),rep(1,3),rep(0,0)))
Z=cbind(c1,c2,c3,c4,c5,c6)

需要要生成的是Z形式的矩阵；而ci用的是for循环来实现：
for(i in 1:n)
{
ci=as.matrix(c(rep(0,(i-1)*3),rep(1,3),rep(0,(n.tot-3i))))

}
不知Z如何用循环生成（Z=cbind(c1,c2,…，cn)）

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：列向量合成矩阵 matrix for循环 bind 非常感谢 列向量合成矩阵

在循环之前先生成一个矩阵，然后在循环中对矩阵赋值

使用 for还是不用R了，使用R有一条戒律，放弃 for.


n = 15
fun = function(x) c(rep(0,(x-1)*3),rep(1,3),rep(0,15 - 3*x))
sapply(1:5,function(i) fun(i))
      [,1] [,2] [,3] [,4] [,5]
[1,]    1    0    0    0    0
[2,]    1    0    0    0    0
[3,]    1    0    0    0    0
[4,]    0    1    0    0    0
[5,]    0    1    0    0    0
[6,]    0    1    0    0    0
[7,]    0    0    1    0    0
[8,]    0    0    1    0    0
[9,]    0    0    1    0    0
[10,]    0    0    0    1    0
[11,]    0    0    0    1    0
[12,]    0    0    0    1    0
[13,]    0    0    0    0    1
[14,]    0    0    0    0    1
[15,]    0    0    0    0    1

1. do.call(cbind,list(c1,c2,c2))

复制代码

daishen 发表于 2014-9-16 19:51
使用 for还是不用R了，使用R有一条戒律，放弃 for.

哇 谢谢 谢谢~这个太有用了~
还请问这个从哪学的啊，要是你不说我真没见过！

xucaifeng66 发表于 2014-9-16 17:06
在循环之前先生成一个矩阵，然后在循环中对矩阵赋值

这个一直没弄懂怎么弄啊~不过还是谢了~

xucaifeng66 发表于 2014-9-16 17:06
在循环之前先生成一个矩阵，然后在循环中对矩阵赋值

这个一直没弄懂怎么弄啊~不过还是谢了~

xucaifeng66 发表于 2014-9-16 17:06
在循环之前先生成一个矩阵，然后在循环中对矩阵赋值

这个一直没弄懂怎么弄啊~不过还是谢了~

for(i in 1:n){

ci=as.matrix(c(rep(0,(i-1)*3),rep(1,3),rep(0,(n.tot-3i))))

If (i > 1) {

       Zi = cbind(Zi-1,Ci);

       }

Else{

        Zi = Ci;

      }

}

感谢楼主的分享