如何解决如何对列表中具有相同名称的数据框求和?
我有两个包含多个数据框的列表:
list_1 <- list(a = tibble(c(1,2),c(3,4)),b = tibble(c(3,4),c(2,5)),c = tibble(c(5,62),c(1,6)))
list_2 <- list(a = tibble(c(1,d = tibble(c(5,6)))
现在,我想总结所有具有相同名称的数据框。因此,所需的输出应如下所示:
list_1 <- list(a = tibble(c(2,c(6,8)),b = tibble(c(6,8),c(4,10)))
有没有人知道如何解决这个问题?
提前致谢。
解决方法
您可以使用 intersect
获取两个列表中的常用名称,并使用 Map
添加仅用于常用名称的两个列表。
common_names <- intersect(names(list_1),names(list_2))
Map(`+`,list_1[common_names],list_2[common_names])
#$a
# c(1,2) c(3,4)
#1 2 6
#2 4 8
#$b
# c(3,4) c(2,5)
#1 6 4
#2 8 10
与purrr
的{{1}}相同:
map2
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。