主页 / coding / 问题 / 79159543
Accepted
M. Beausoleil
Asked: 2024-11-05 22:39:02 +0800 CST

在 R 中列出带有两个列表元素的 cbind

  • 772

我有 2 个列表：

a = list(data.frame(a = 1:10, b = 21:30), data.frame(a = 11:20, b = 31:40))
b = list(data.frame(c = letters[1:10]), data.frame(c = LETTERS[1:10]))

我想自动对它们进行 cbind，以便 c 列与 a 列表中的每个元素配对。

这是我的期望（手动）

c = list(data.frame(a = 1:10, b = 21:30, c = letters[1:10]), data.frame(a = 11:20, b = 31:40, c = LETTERS[1:10]))

当尝试这个时，

do.call(cbind, a, b)

我明白了

Error in if (quote) args <- lapply(args, enquote) : 
  the condition has length > 1

预期输出：

c
[[1]]
    a  b c
1   1 21 a
2   2 22 b
3   3 23 c
4   4 24 d
5   5 25 e
6   6 26 f
7   7 27 g
8   8 28 h
9   9 29 i
10 10 30 j

[[2]]
    a  b c
1  11 31 A
2  12 32 B
3  13 33 C
4  14 34 D
5  15 35 E
6  16 36 F
7  17 37 G
8  18 38 H
9  19 39 I
10 20 40 J

1 个回答

  1. Best Answer

    我们可以使用Map()

    > Map("cbind", a, b)
[[1]]
    a  b c
1   1 21 a
2   2 22 b
3   3 23 c
4   4 24 d
5   5 25 e
6   6 26 f
7   7 27 g
8   8 28 h
9   9 29 i
10 10 30 j

[[2]]
    a  b c
1  11 31 A
2  12 32 B
3  13 33 C
4  14 34 D
5  15 35 E
6  16 36 F
7  17 37 G
8  18 38 H
9  19 39 I
10 20 40 J

    只要a和的b长度相同，并且它们的数据帧的行数相等。

    • 1

相关问题