小编jrc*_*ese的帖子

我有一个如下所示的数据框：

> df <- data.frame(x = c(1,0,2,0,1,3,1),
+                  y = c("lima","chicago","new york","Miami","havana","Colon","la paz"))
> df
  x        y
1 1     lima
2 0  chicago
3 2 new york
4 0    Miami
5 1   havana
6 3    Colon
7 1   la paz

我想找到一种根据列的值插入空白N行的方法x ，因此如果x是1，将在上面插入1个空白行，如果x是3，将在上面插入3个空白行。上面的数据框所需的输出应该是这样的：

> df
    x        y
1  NA     <NA>
2   1     lima
3   0  chicago
4  NA     <NA>
5  NA     <NA>
6   2 new york
7   0    Miami
8  NA     <NA>
9   1   havana
10 …

我有一个包含大约 13k 行的长格式的大型数据框。它主要包含数字但一些字符串变量。这是它的外观示例数据。

id <- c(101,101,101,101,101,101,101,101,101,
        102,102,102,102,102,102,
        103,103,103,103,103,103,103,103,103,103,103)
color <- c("red","red","red","red","red","red","red","red","red",
           "blue","blue","blue","blue","blue","blue",
           "green","green","green","green","green","green","green","green","green","green","green")
time <- c(1:9, 1:6, 1:11) 
var1 <- sample(1:3, 26, replace=TRUE)
var2 <- sample(1:3, 26, replace=TRUE)
var3 <- sample(1:3, 26, replace=TRUE)
df <- data.frame(id,color,time,var1,var2,var3)

    id color time var1 var2 var3
1  101   red    1    1    1    3
2  101   red    2    1    3    1
3  101   red    3    1    3    1
4  101   red    4    1    3    3
5  101   red    5    2    2    3
6  101   red …