重复代码以在数据框中添加空白行

Question

我试图找到一种方法来复制以下代码 4 次:

df3_1<- df3_1 %>% add_row(.before= 2)

我尝试了“rep”功能，但没有成功。有什么方法可以重复此代码 4 次，以便我可以完全按照上述方式添加多个空白行(即关于特定行号)。
谢谢!

Answer 1

在基础 R 中，您可以执行以下操作:

n <- 4

nr <- nrow(df3_1)
df3_1[append(seq(nr), values = rep(nr + 1, n), after = 1), ]

或者一个 tidyverse 方法:

library(tibble) 

n <- 4

df3_1 %>% 
  add_row(!!names(.)[1] := rep(NA, n), .before = 2)