如何用apply或者此类函数实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. myfun <- function(x,y) {
   
2. return(x[,y]/x[,y-1])
   
3. }
   
4. m1 = matrix(c(1,2,3,4,5,6,7,8,9),nrow=3)
   
5. myfunc(m1,2)

复制代码

现在想用apply函数实现，但是下面的代码提示错误

1. apply(m1,1,myfunc,y=2)

复制代码

谢谢各位指教!

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：apply appl 如何用 App Fun 如何

首先，一个是myfunc，一个是myfun，肯定会出问题。

其次，myfun函数里，操作对象是matrix,而apply函数是以matrix里的一列或者一行为对象，将myfun作用于matrix的函数，放到apply里，肯定出错。显示

1. Error in x[, y] : incorrect number of dimensions

复制代码

所以，你需要考虑用别的方法来实现你的目的。而你的目的从给定的信息判断，并不明显，所以请多加思考些。

jiangbeilu 发表于 2016-3-19 23:02
首先，一个是myfunc，一个是myfun，肯定会出问题。

其次，myfun函数里，操作对象是matrix,而apply函数是 ...

@jiangbeilu，谢谢您
那个函数写错了，不好意思！
比如现在有一个矩阵，我想实现的是矩阵的每两列比值，如我例子中的，

1. myfun <- function(x,y) {
   
2. return(x[,y]/x[,y-1])
   
3. }
   
4. 
   
5. ##我的想法是x是矩阵，就变动y，就可以计算不同列的比值
   
6. 
   
7. m1 = matrix(c(1,2,3,4,5,6,7,8,9),nrow=3)
   
8. myfun(m1,2)

复制代码

上面就是第2列和第1列的比值，但是我不想用循环去实现，想用apply函数或者此类函数
请教有可以简单实现的吗？

建议你理解一下apply函数的用法，及与循环的关系。
apply能替代循环，可以理解成：
在执行的时候，apply将矩阵的很多列或者行，作为一个单独的对象，参与到计算中，然后最后每一行或者每一列的操作结果，返回一个对应的内容。
并不参完成你所说的问题，你的问题是两层循环。
矩阵方面的相关函数我不太熟悉，不过你可以用组合函数，也就是从n列中，每次选择2列，这样的排列或者组合结果，然后再代入矩阵进行行列计算即可。

jiangbeilu 发表于 2016-3-20 09:52
建议你理解一下apply函数的用法，及与循环的关系。
apply能替代循环，可以理解成：
在执行的时候，apply将 ...

嗯，明白，您的建议也是一种选择方案，很好！
谢谢，最近正在学习apply函数，就想到这样一个问题。

如果你只想求出该矩阵中后一列和前一列的比，直接可以用

m1[, -1]/m1[, -ncol(m1)]

楼上的应该是最优解。

我多说几句，楼主之所以用apply解决不了，因为这个问题是涉及两个向量的对应运算，对应要用apply家族中的mapply()，比如：
mapply(function(x, y) x/y, mat[,-1], mat[,-ncol(mat)])
当然，由于本楼的问题比较简单，可以完全向量化，还是用楼上方法吧。