如何实现每列数据与其第一行数据相除

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

例如现在我有一个矩阵A


col1  col2  col3
1      2      3
3      7      5
6      6      6
怎样实现每一列与其第一行的元素相除呢？
多谢回答

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何实现 如何

1. col1=c(1,3,6)
   
2. col2=c(2,7,6)
   
3. col3=c(3,5,6)
   
4. A=cbind(col1,col2,col3)
   
5. x=matrix(NA,nrow=nrow(A),ncol=nrow(A))
   
6. for (i in 1:nrow(A)) {
   
7.   x[i,]=A[i,]/A[1,]
   
8.   print(x)
   
9. }

复制代码

我可能写的复杂了，个人觉得使用apply同样能解决问题。

1. A / matrix(A[1, ], nrow = nrow(A), ncol = ncol(A), byrow = TRUE)

复制代码

ntsean 发表于 2017-2-3 02:47

多谢多谢！！！！

设矩阵为A
只需要：
t(apply(A,1,function(x)x/A[1,]))
或者简单一些：
t(t(A)/A[1,])
或者更简单，如果第一行恰好是1:n
A/col(A)