R 根据列表对象的另一列添加列

我在R中有一个列表对象

 dl <- list(matrix(c(1,5,.2,.7), nrow=2,dimnames=list(c(),c("x","y"))), matrix(c(0,1,.01,.4), nrow=2,dimnames=list(c(),c("x","y") )))

---

但是这种编码看起来很混乱

这就是你要找的吗

> lapply(dl,FUN=function(mat) z <- cbind(mat,rbinom(2,1,mat[,2])))
[[1]]
     x   y  
[1,] 1 0.2 0
[2,] 5 0.7 0

[[2]]
     x    y  
[1,] 0 0.01 0
[2,] 1 0.40 1

---

>lappy（dl，FUN=function（mat）z是的，但是有没有办法将列名添加为
z
？可能您需要
lappy（dl，FUN=function（mat）cbind（mat，z=rbinom（2,1，mat[，2]）
@RonakShah非常感谢。
> lapply(dl,FUN=function(mat) z <- cbind(mat,rbinom(2,1,mat[,2])))
[[1]]
     x   y  
[1,] 1 0.2 0
[2,] 5 0.7 0

[[2]]
     x    y  
[1,] 0 0.01 0
[2,] 1 0.40 1