在 R 中的另一个数据帧的特定位置添加一个数据帧的行

Question

我有一个 5520 x 5520 的大数据框。在每 120 行之后我需要添加另一行。这些新行的值在 5520 之前包含在一行的数据框中。

我使用 rbind 在 table 的末尾添加了这些行，这是我不想要的。并给我一个错误： fabioN2 <-rbind(fabioN2, auf2[1,]) Error in match.names(clabs, names(xi)) : names do not match previous names

将 tibble 与 add_row 一起使用我也收到错误消息： > fabioN2 %>% add_row(fabioN2, auf2[1,], .after = 120) Error: New rows can't add columns. x Can't find columns fabioN2, X1, X2, X3, X4, and 5516 more in .data.

fabioN2 是大型数据框，而 auf2 包含我想添加到 fabioN2 的值。毫无疑问，代码是错误的，并且基于错误，我必须匹配两个数据帧的列名，考虑到 5520 个不同的列名，我想避免这种情况。

有人知道如何轻松地将这些数据帧添加到所需位置吗？

Answer 1

我希望我的逻辑适合你的问题......我为 30 行的 data.frame 做了每 10 行添加一行（因为 120 对于可重现的例子来说已经足够了在答案中拟合输出）。

library(dplyr)

r <- 3 # your number is 46 (5520/120)
l <- 10 # your number is 120

# your long data.frame where you want to fit in ever l rows
df1 <- data.frame(dx = c("a","a","a","a","a","a","a","a","a","a",
                         "c","c","c","c","c","c","c","c","c","c", 
                         "e","e","e","e","e","e","e","e","e","e"))

# your data.frame of one row to fit in every l rows
df2 <- data.frame(dy = c("X"))

# set colnames to be identical
names(df2) <- colnames(df1) 

# use row number as ID and set it of as needed with the help of integer division
dff1 <- df1 %>% 
  dplyr::mutate(ID = dplyr::row_number()) %>% 
  dplyr::mutate(ID = ID + (ID-1) %/% l)

# repeat your one row df according to the quantity needed and use the row number with set off calculation
dff2 <- df2 %>% 
  dplyr::slice(rep(row_number(), r)) %>% 
  dplyr::mutate(ID = dplyr::row_number()) %>% 
  dplyr::mutate(ID = (ID) * l + ID)

# union both data.frames (I am supposing column types are identical!)
dff1 %>% 
  dplyr::union(dff2) %>% 
  dplyr::arrange(ID)

   dx ID
1   a  1
2   a  2
3   a  3
4   a  4
5   a  5
6   a  6
7   a  7
8   a  8
9   a  9
10  a 10
11  X 11
12  c 12
13  c 13
14  c 14
15  c 15
16  c 16
17  c 17
18  c 18
19  c 19
20  c 20
21  c 21
22  X 22
23  e 23
24  e 24
25  e 25
26  e 26
27  e 27
28  e 28
29  e 29
30  e 30
31  e 31
32  e 32
33  X 33

在 R 中的另一个数据帧的特定位置添加一个数据帧的行

Adding row of one data frame at a specific spot in another dataframe in R

r

dataframe

rbind

tibble