更改嵌套列表中设置数据帧的对角线

Question

我在另一个列表中嵌套的列表中有几个数据框。我想将数据帧的对角线更改为NA

。

我试过这个a <- lapply(ATS,function(x) lapply(x, function(x) diag(x) <- NA))

但内部的数据框转为逻辑等于NA。

如何更改数据框的对角线？

Answer 1

我们需要在分配后返回x

lapply(ATS,function(x) lapply(x, function(x) {diag(x) <- NA; x}))