r - 如何在 R 中创建一个新列表，将每个数据帧与先前的数据帧合并到同一个列表中-6ren

r - 如何在 R 中创建一个新列表，将每个数据帧与先前的数据帧合并到同一个列表中

转载作者：行者123 更新时间：2023-12-04 12:30:59

大家好我正在尝试用 R 中的数据框列表解决一个小问题。我有一个结构如下的数据框列表:

list
$a1
   ID Mount s1
1 001     1  1
2 002     2  1
3 003     3  1
4 004     4  1
5 005     5  1
6 006     6  1
7 007     7  1
8 009     8  1
9 010     9  1

$a2
    ID Mount s2
1  001     1  2
2  002     2  2
3  003     3  2
4  004     4  2
5  005     5  2
6  006     6  2
7  007     7  2
8  009     8  2
9  010     9  2
10 011    10  2
11 012    11  2

$a3
    ID Mount s3
1  001     1  3
2  002     2  3
3  003     3  3
4  004     4  3
5  005     5  3
6  006     6  3
7  007     7  3
8  009     8  3
9  010     9  3
10 011    10  3
11 012    11  3
12 013    11  3
13 014    11  3

$a4
    ID Mount s4
1  001     1  4
2  002     2  4
3  003     3  4
4  004     4  4
5  005     5  4
6  006     6  4
7  007     7  4
8  009     8  4
9  010     9  4
10 011    10  4
11 012    11  4
12 013    11  4
13 014    11  4
14 015    12  4
15 016    12  4

$a5
    ID Mount s5
1  001     1  5
2  002     2  5
3  003     3  5
4  004     4  5
5  005     5  5
6  006     6  5
7  007     7  5
8  009     8  5
9  010     9  5
10 011    10  5
11 012    11  5
12 013    11  5
13 014    11  5
14 015    12  5
15 016    12  5
16 017    14  5
17 018    14  5

我的问题是如何将每个数据帧与同一列表中的先前数据帧合并，例如 a1将与 a1 合并, a2将与 a1 合并, a3将与 a2 合并和 a1 , a4将被合并 a3 , a2和 a1和 a5将被合并 a4 , a3 , a2和 a1 .考虑到 ID，我正在做这个合并要添加的变量 s在每个数据框中。我想在新列表中得到这样的东西:

list.merged
$a1
   ID Mount s1
1 001     1  1
2 002     2  1
3 003     3  1
4 004     4  1
5 005     5  1
6 006     6  1
7 007     7  1
8 009     8  1
9 010     9  1

$a2
    ID Mount s2 s1
1  001     1  2 1
2  002     2  2 1
3  003     3  2 1
4  004     4  2 1
5  005     5  2 1
6  006     6  2 1
7  007     7  2 1
8  009     8  2 1
9  010     9  2 1
10 011    10  2 NA
11 012    11  2 NA

$a3
    ID Mount s3 s2 s1 
1  001     1  3 2  1
2  002     2  3 2  1
3  003     3  3 2  1
4  004     4  3 2  1
5  005     5  3 2  1
6  006     6  3 2  1
7  007     7  3 2  1
8  009     8  3 2  1
9  010     9  3 2  1
10 011    10  3 2  NA
11 012    11  3 2  NA
12 013    11  3 NA NA
13 014    11  3 NA NA

$a4
    ID Mount s4 s3 s2 s1
1  001     1  4 3  2  1
2  002     2  4 3  2  1
3  003     3  4 3  2  1
4  004     4  4 3  2  1
5  005     5  4 3  2  1
6  006     6  4 3  2  1
7  007     7  4 3  2  1
8  009     8  4 3  2  1
9  010     9  4 3  2  1
10 011    10  4 3  2  NA
11 012    11  4 3  2  NA
12 013    11  4 3  NA NA
13 014    11  4 3  NA NA
14 015    12  4 NA NA NA
15 016    12  4 NA NA NA

$a5
    ID Mount s5 s4 s3 s2 s1
1  001     1  5 4  3  2  1
2  002     2  5 4  3  2  1
3  003     3  5 4  3  2  1
4  004     4  5 4  3  2  1
5  005     5  5 4  3  2  1
6  006     6  5 4  3  2  1
7  007     7  5 4  3  2  1
8  009     8  5 4  3  2  1
9  010     9  5 4  3  2  1
10 011    10  5 4  3  2  NA
11 012    11  5 4  3  2  NA
12 013    11  5 4  3  NA NA
13 014    11  5 4  3  NA NA
14 015    12  5 4  NA NA NA
15 016    12  5 4  NA NA NA
16 017    14  5 NA NA NA NA
17 018    14  5 NA NA NA NA

我正在使用函数 Reduce与 merge在里面，但在第一刻我只被合并了a1所有数据框都在 list 中.我使用下一个函数来做到这一点:

list.merged=Reduce(function(x, y) merge(x, y[,c(1,3)],by.x="ID",by.y="ID",all.x=TRUE),list)

但我得到的是一个数据框，而不是一个包含合并数据框的列表。我不知道是否可以重新定义最后的代码以应用于 list 中的每个数据框因为我使用了与 lapply() 相同的代码但我得到了错误。 dput list 的版本是下一个:

structure(list(a1 = structure(list(ID = c("001", "002", "003", 
"004", "005", "006", "007", "009", "010"), Mount = c(1, 2, 3, 
4, 5, 6, 7, 8, 9), s1 = c(1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c("ID", 
"Mount", "s1"), row.names = c(NA, 9L), class = "data.frame"), 
    a2 = structure(list(ID = c("001", "002", "003", "004", "005", 
    "006", "007", "009", "010", "011", "012"), Mount = c(1, 2, 
    3, 4, 5, 6, 7, 8, 9, 10, 11), s2 = c(2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2)), .Names = c("ID", "Mount", "s2"), row.names = c(NA, 
    11L), class = "data.frame"), a3 = structure(list(ID = c("001", 
    "002", "003", "004", "005", "006", "007", "009", "010", "011", 
    "012", "013", "014"), Mount = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 
    10, 11, 11, 11), s3 = c(3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 
    3, 3)), .Names = c("ID", "Mount", "s3"), row.names = c(NA, 
    13L), class = "data.frame"), a4 = structure(list(ID = c("001", 
    "002", "003", "004", "005", "006", "007", "009", "010", "011", 
    "012", "013", "014", "015", "016"), Mount = c(1, 2, 3, 4, 
    5, 6, 7, 8, 9, 10, 11, 11, 11, 12, 12), s4 = c(4, 4, 4, 4, 
    4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4)), .Names = c("ID", "Mount", 
    "s4"), row.names = c(NA, 15L), class = "data.frame"), a5 = structure(list(
        ID = c("001", "002", "003", "004", "005", "006", "007", 
        "009", "010", "011", "012", "013", "014", "015", "016", 
        "017", "018"), Mount = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
        11, 11, 11, 12, 12, 14, 14), s5 = c(5, 5, 5, 5, 5, 5, 
        5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5)), .Names = c("ID", "Mount", 
    "s5"), row.names = c(NA, 17L), class = "data.frame")), .Names = c("a1", 
"a2", "a3", "a4", "a5"))

感谢您的帮助。

最佳答案

您可以在 Reduce 中编写内联函数，将 all=TRUE 参数传递给 merge。

因此，如果您的数据在列表 LL 中(不要将您的对象命名为 list，因为它也是 R 中的一个函数)

Reduce(f = function(x, y) merge(x, y, all = TRUE), LL, accumulate = T)
## [[1]]
##    ID Mount s1
## 1 001     1  1
## 2 002     2  1
## 3 003     3  1
## 4 004     4  1
## 5 005     5  1
## 6 006     6  1
## 7 007     7  1
## 8 009     8  1
## 9 010     9  1
## 
## [[2]]
##     ID Mount s1 s2
## 1  001     1  1  2
## 2  002     2  1  2
## 3  003     3  1  2
## 4  004     4  1  2
## 5  005     5  1  2
## 6  006     6  1  2
## 7  007     7  1  2
## 8  009     8  1  2
## 9  010     9  1  2
## 10 011    10 NA  2
## 11 012    11 NA  2
## 
## [[3]]
##     ID Mount s1 s2 s3
## 1  001     1  1  2  3
## 2  002     2  1  2  3
## 3  003     3  1  2  3
## 4  004     4  1  2  3
## 5  005     5  1  2  3
## 6  006     6  1  2  3
## 7  007     7  1  2  3
## 8  009     8  1  2  3
## 9  010     9  1  2  3
## 10 011    10 NA  2  3
## 11 012    11 NA  2  3
## 12 013    11 NA NA  3
## 13 014    11 NA NA  3
## 
## [[4]]
##     ID Mount s1 s2 s3 s4
## 1  001     1  1  2  3  4
## 2  002     2  1  2  3  4
## 3  003     3  1  2  3  4
## 4  004     4  1  2  3  4
## 5  005     5  1  2  3  4
## 6  006     6  1  2  3  4
## 7  007     7  1  2  3  4
## 8  009     8  1  2  3  4
## 9  010     9  1  2  3  4
## 10 011    10 NA  2  3  4
## 11 012    11 NA  2  3  4
## 12 013    11 NA NA  3  4
## 13 014    11 NA NA  3  4
## 14 015    12 NA NA NA  4
## 15 016    12 NA NA NA  4
## 
## [[5]]
##     ID Mount s1 s2 s3 s4 s5
## 1  001     1  1  2  3  4  5
## 2  002     2  1  2  3  4  5
## 3  003     3  1  2  3  4  5
## 4  004     4  1  2  3  4  5
## 5  005     5  1  2  3  4  5
## 6  006     6  1  2  3  4  5
## 7  007     7  1  2  3  4  5
## 8  009     8  1  2  3  4  5
## 9  010     9  1  2  3  4  5
## 10 011    10 NA  2  3  4  5
## 11 012    11 NA  2  3  4  5
## 12 013    11 NA NA  3  4  5
## 13 014    11 NA NA  3  4  5
## 14 015    12 NA NA NA  4  5
## 15 016    12 NA NA NA  4  5
## 16 017    14 NA NA NA NA  5
## 17 018    14 NA NA NA NA  5
##

关于r - 如何在 R 中创建一个新列表，将每个数据帧与先前的数据帧合并到同一个列表中，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/20414646/

文章推荐： c - 只有当一个重要的指针被覆盖时，缓冲区溢出才会导致段错误吗？

文章推荐： c - 如何在指针数组中声明三重指针

文章推荐： ember.js - ember-cli:如何在 pod 中放置 CSS

文章推荐： r - 在大型数据框中按行计算字符串的出现次数

swift - 先前 SceneKit 内容的闪烁
我的应用将 SceneKit 内容的“页面”与图像和文本交替。当我从图像页面前进到新的 SceneKit 页面时，前一个 SceneKit 页面中的内容会短暂显示，然后被新内容替换。时髦。我只使用一
c# - 按后续负数的数量对数组的(先前)元素进行分组
我正在尝试处理(在 C# 中)包含一些数字数据的大型数据文件。给定一个整数数组，如何对其进行拆分/分组，以便如果下一个 n(两个或更多)是负数，则前一个 n 元素被分组。例如，在下面的数组中，应该使用
javascript - then() 函数是否返回反射(reflect)先前 promise 结果的 promise ？
刚接触promises，研究过。所以我的代码和我的理解: sql.connect(config).then(function(connection) { return connection.req
java - 是否可以根据两个(或更多)先前 'else' 的结果创建一个 'if'？
目前我在 if (roobaf) block 中有一些代码，这取决于 foo 和 bar 是否为假。我可以在 block 内再次检查这些条件，但感觉像是不必要的代码重复。 if (foo) {

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 如何在 R 中创建一个新列表，将每个数据帧与先前的数据帧合并到同一个列表中