R: `rbind`，其中列指示绑定(bind)-6ren

R: `rbind`，其中列指示绑定(bind)

转载作者：行者123 更新时间：2023-12-03 02:48:12

25

4

我想rbind两个数据帧，并在结果data.frame中添加一个附加列，指示哪一行来自哪个data.frame。例如，

top <- mtcars[1:16, ]
bottom <- mtcars[17:32, ]

rbind(top, bottom)

这会给我，

                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
Valiant             18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1
Duster 360          14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4
Merc 240D           24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2
Merc 230            22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2
Merc 280            19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4
Merc 280C           17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4
Merc 450SE          16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3
Merc 450SL          17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3
Merc 450SLC         15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3
Cadillac Fleetwood  10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4
Lincoln Continental 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4
Chrysler Imperial   14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4
Fiat 128            32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1
Honda Civic         30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2
Toyota Corolla      33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1
Toyota Corona       21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1
Dodge Challenger    15.5   8 318.0 150 2.76 3.520 16.87  0  0    3    2
AMC Javelin         15.2   8 304.0 150 3.15 3.435 17.30  0  0    3    2
Camaro Z28          13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4
Pontiac Firebird    19.2   8 400.0 175 3.08 3.845 17.05  0  0    3    2
Fiat X1-9           27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1
Porsche 914-2       26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2
Lotus Europa        30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2
Ford Pantera L      15.8   8 351.0 264 4.22 3.170 14.50  0  1    5    4
Ferrari Dino        19.7   6 145.0 175 3.62 2.770 15.50  0  1    5    6
Maserati Bora       15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8
Volvo 142E          21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2

但是我需要，

                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb which.df
Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4      top
Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4      top
Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1      top
Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1      top
Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2      top
Valiant             18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1      top
Duster 360          14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4      top
Merc 240D           24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2      top
Merc 230            22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2      top
Merc 280            19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4      top
Merc 280C           17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4      top
Merc 450SE          16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3      top
Merc 450SL          17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3      top
Merc 450SLC         15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3      top
Cadillac Fleetwood  10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4      top
Lincoln Continental 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4      top
Chrysler Imperial   14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4   bottom
Fiat 128            32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1   bottom
Honda Civic         30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2   bottom
Toyota Corolla      33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1   bottom
Toyota Corona       21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1   bottom
Dodge Challenger    15.5   8 318.0 150 2.76 3.520 16.87  0  0    3    2   bottom
AMC Javelin         15.2   8 304.0 150 3.15 3.435 17.30  0  0    3    2   bottom
Camaro Z28          13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4   bottom
Pontiac Firebird    19.2   8 400.0 175 3.08 3.845 17.05  0  0    3    2   bottom
Fiat X1-9           27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1   bottom
Porsche 914-2       26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2   bottom
Lotus Europa        30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2   bottom
Ford Pantera L      15.8   8 351.0 264 4.22 3.170 14.50  0  1    5    4   bottom
Ferrari Dino        19.7   6 145.0 175 3.62 2.770 15.50  0  1    5    6   bottom
Maserati Bora       15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8   bottom
Volvo 142E          21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2   bottom

是否有任何现有函数可以执行此操作，我有很多 data.frame，重复计算行数的文本会很麻烦。

最佳答案

您可以为此编写一个简单的函数:

top <- mtcars[1:16, ]
bottom <- mtcars[17:32, ]

myBind <- function(df1, df2) {
    df1$which.df <- all.names(match.call())[2]
    df2$which.df <- all.names(match.call())[3]
    rbind(df1, df2)
}

result <- myBind(top, bottom)

结果如下:

result[14:19,]

                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb which.df
Merc 450SLC         15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3      top
Cadillac Fleetwood  10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4      top
Lincoln Continental 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4      top
Chrysler Imperial   14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4   bottom
Fiat 128            32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1   bottom
Honda Civic         30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2   bottom

要容纳 2 个以上的数据帧，您可以使用 ...而不是df1, df2并迭代函数内的所有参数以设置 which.df 的值.

关于R: `rbind`，其中列指示绑定(bind)，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/36277658/

25

4

0

文章推荐： vba - 从格式为 (A1 :A15)

文章推荐： excel - 导入或打开文件时 Excel 中的日期格式不正确

文章推荐： vba - 自动定义工作表名称

r - rbind 的内存高效替代方案 - 就地 rbind？
我需要重新绑定(bind)两个大数据帧。现在我用的是 df 根据 nikola 的评论，这里是 ?rbindlist 的描述(v1.8.2 中的新增功能): Same as do.call("rbi
r - 为什么 rbind() 和 do.call(rbind, ) 返回不同的结果？
我想使用以下代码将列表转换为数据框: ls<-list(a=c(1:4),b=c(3:6)) do.call("rbind",ls) 添加do.call得到的结果如下图。它返回一个 data.fram
data.table 中的 rbind + setkey 比自动索引的 xts::rbind 慢？
data.table 在更新(=rbind)新行时比 xts 慢近 6 倍的原因是什么？ library(quantmod); library(xts); library(data.table) XT
rbind 包含不同长度列表的数据框列
我有一个数据框，其中一列包含不同长度的列表: IP 100 万)时，它会永远运行并崩溃。有没有办法将其有效地应用于更大的数据集？谢谢! 最佳答案所有解决方案都没有重复 plyr::ldply正在
rbind 具有不同列的数据框列表
这个问题在这里已经有了答案: do.call(rbind, list) for uneven number of column (4 个回答) Efficient way to rbind data.
rbind 具有不同行长的文本文件
我正在尝试使用 dif.length of rows rbind 两个 txt 文件，例如: 我使用这个代码: a<-matrix(1:12,4,3) b<-matrix(21:41,7,3) set
rbind 矩阵列表中的矩阵
我有一个 list的 list的矩阵。每个list具有相同数量的matrices其中每个 matrix具有相同的列数: set.seed(1) mat.lol % map(do.call, what=
rbind 单个数据框中每两列的完整行
这个问题在这里已经有了答案: Reshaping multiple sets of measurement columns (wide format) into single columns (lo
rbind() 返回奇数结果
这有所有迹象表明它是如此愚蠢，以至于我会后悔在公共(public)论坛上提出它，但我现在已经难倒了一些人，所以c'est la vie。我正在运行以下代码块，但没有得到我期望的结果: zz pad
rbind 2个不同长度的向量通过他们的名字
我有 2 个不同长度的向量: vec1 <- rnorm(18, mean = 0.0018, sd = 0.0001) names(vec1) <- c("CSF", "D10", "D13", "
rbind 列表列表中的所有数据框按名称
这个问题在这里已经有了答案: rbind dataframes in a list of lists (3 个答案) 关闭 9 年前。我想 rbind ALIST 中的所有 a 数据帧 - 我该怎
rbind 具有不同列名的数据框
我有 12 个数据框，每个包含 6 列:5 个名称相同，1 个不同。然后当我调用 rbind()我得到: Error in match.names(clabs, names(xi)) : name
rbind 多个数据集
这个问题在这里已经有了答案: Combine (rbind) data frames and create column with name of original data frames (7 个回
rbind 函数更改我的条目
我有两个要附加在一起的 data.frames。一个 data.frame 保存过去的数据，另一个 data.frame 保存 future 的预测数据。例如: past rbind(past,fu
rbind 命名向量到不同长度的矩阵
我正在尝试将一个命名向量绑定(bind)到一个矩阵上。命名向量的长度与矩阵不同: > m named_vec names(named_vec) rbind(m, named_vec) 我得到以下
rbind 基于列名并排除不匹配
示例数据: l <- list(x=data.frame(X1=1,X2=2,X3=3,X4=4,X5=5), y=data.frame(X1=6,X8=7,X4=8,X9=9,X
rbind 并根据键变量覆盖重复行？
> part1 part1 key x 1 5 b # key==5,x==b 2 6 d 3 7 a 4 8 c 5 9 b > part2 part2 key x 1
Rbinding 大量数据帧
我有大量数据框，我想使用 rbind 将它们组合成一个大数据框。我在这里看到了这样做的解决方案，但他们假设数据帧存储在数据帧列表中。我的不是，而且我不知道有什么好方法可以将它们全部放入列表中，而无需
rbind 输出格式到可发布表
我用过这段代码 outcomes_all% theme_zebra %>% autofit ft # Create a temp file tmp % body_add_flextable
r - 在嵌套列表中的矩阵上使用 rbind？
我在 R 中工作，我有一个数据集，它是矩阵列表的列表。主列表中的每个子列表都有两个等维矩阵(10 行 x 2 列)。我想将每个矩阵列表 rbind() 变成一个矩阵(20 行 x 2 列)。但我不想将

首页

博学

6Ren·AI

商城

R: `rbind`，其中列指示绑定(bind)