在R中使用管道符(%>%)生成相关系数与协方差矩阵列表时，如何避免数据框被作为列表元素插入

你遇到的问题确实是magrittr管道的默认特性导致的——管道%>%会自动把左边的对象塞进右边函数的第一个参数里，而list()的第一个参数就是要添加的列表元素，所以原数据框就被当成第一个元素插进去了。下面给你几个简便的解决方法：

方法1：用大括号{}包裹列表构造逻辑 #

这是最直接的方法，用大括号创建一个匿名代码块，这样管道传入的数据框只会被赋值给.，不会自动成为list()的参数。你可以在大括号里完全手动控制怎么使用这个数据框：

library(magrittr) # 或者用dplyr，它已经包含了magrittr
matrix(1:27, ncol = 6) %>% as.data.frame() %>% {
  list(
    a = list(cor(.[,1:3]), cov(.[,1:3])),
    b = list(cor(.[,4:6]), cov(.[,4:6]))
  )
}

运行这段代码后，输出的列表就只有a和b两个元素，不会再出现原数据框的冗余项了。

方法2：用%$%运算符简化列引用 #

如果你觉得写.[,1:3]有点繁琐，magrittr还提供了%$%运算符，它能把数据框的列直接暴露成当前环境的变量，这样你可以直接用列名来引用：

library(magrittr)
matrix(1:27, ncol = 6) %>% as.data.frame() %$%
  list(
    a = list(cor(cbind(V1, V2, V3)), cov(cbind(V1, V2, V3))),
    b = list(cor(cbind(V4, V5, V6)), cov(cbind(V4, V5, V6)))
  )

这种方式代码可读性更高，尤其是当你的列有明确名称的时候，用起来会很顺手。

方法3：先拆分数据框再处理（适合复杂场景） #

如果后续还需要复用拆分后的子数据框，你可以先把原数据框拆分成两个部分，再批量计算相关和协方差矩阵：

library(magrittr)
matrix(1:27, ncol = 6) %>% as.data.frame() %>% {
  list(
    df_a = .[,1:3],
    df_b = .[,4:6]
  )
} %>% lapply(function(sub_df) list(cor(sub_df), cov(sub_df)))

这个方法的优势是结构清晰，后续如果要对子数据框做更多操作，直接修改lapply里的函数就行。

内容的提问来源于stack exchange，提问作者Pål Bjartan