问题求教，请问一个矩阵如何用每一行除以同一行

比如用矩阵的每一行除以第一行，而且得出的结果还是矩阵
我是这样写的，data1<-apply(data,1,function(x) x/data[1,])后，结果就不是一个矩阵，而只有一行了。
请问要怎么处理呢，非常感谢！

按照你的思路使用apply函数，举例说明：

1. data<-matrix(1:12,3,4)
   
2. data1<-apply(data,1,function(x){x/data[1,]})
   
3. data1<-t(data1)

复制代码

这是一个3行4列的矩阵，在apply函数之后data1成为一个4行3列的矩阵，再执行一步转置即可。程序执行的结果是：

1.      [,1] [,2]     [,3] [,4]
   
2. [1,]    1 1.00 1.000000  1.0
   
3. [2,]    2 1.25 1.142857  1.1
   
4. [3,]    3 1.50 1.285714  1.2

复制代码

当然使用循环在思路上更清晰一些，以下程序得到的结果跟上面是一样的。需要注意第一行在除以自身后元素都变成1，因此要单独把第一行提取出来，赋值给data.row1：

1. data<-matrix(1:12,3,4)
   
2. data.row1<-data[1,]
   
3. for (i in 1:nrow(data)) {
   
4.   data[i,]<-data[i,]/data.row1
   
5. }

复制代码

1. t(t(data)/data[1,])

复制代码

这样也可以实现，可以参考下。