在列表中的多个数据帧上应用lappy，R

我在列表u中有一个类似数据帧的列表（4列，都有相同的标题），我想运行lappy函数来获得每个数据帧的第2列和第3列的相关性。我希望函数读取任意整数I（列表中有300+CSV）

我已尝试过此代码，但不起作用：

i<-1:2
for (i) lapply(u, cor(u[[i]][,2],u[[i]][,3]))  

---

ix包含所有数据帧的列表。在下面的示例中，我使用了来自R的两个数据帧（mtcars和iris）

或者，如果需要矢量输出：

sapply(x,function(x)cor(x[,2],x[,3]))
[1]  0.9020329 -0.4284401

如果给列表元素命名，结果将更具可读性：
x仅供参考：
i
在上面的示例中，它不是迭代器，只是数字的向量（一个“列表”）。你需要一些东西来迭代它们。例如：
用于（i中的j）
或仅
用于（1:2中的j）
或
用于（1:2中的i）
sapply(x,function(x)cor(x[,2],x[,3]))
[1]  0.9020329 -0.4284401