如何解决Cbind 列表元素
假设我有两个具有相同数量(和形状)元素的列表。我想绑定这两个列表。
我该怎么做?
谢谢
list1 <- list()
list2 <- list()
list_all <- list()
list1[[1]] <- matrix(c(1,2,3,4),nrow=2)
list1[[2]] <- matrix(c(4,5,6,7),nrow=2)
list2[[1]] <- matrix(c(1,nrow=2)
list2[[2]] <- matrix(c(4,nrow=2)
# combine both sets of matrices at the same time:
list_all <- cbind(list1,list2)
# wrong output
list_all
# combine individually:
list_all[[1]] <- cbind(list1[[1]],list2[[1]])
list_all[[2]] <- cbind(list1[[2]],list2[[2]])
# wrong output
list_all
# desired output
list_all[[1]] <-matrix(c(1,4,1,nrow=2)
list_all[[2]] <-matrix(c(4,7,nrow=2)
list_all
解决方法
使用Map
:
list_all <- Map(cbind,list1,list2)
或 map2
中的 purrr
:
list_all <- purrr::map2(list1,list2,cbind)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。