r - 如何在 R 中的每一行之间添加一行？

Question

我试图找出如何在 data.frame 中的每行之间添加一行.例如:

xdf <- data.frame(name = c(letters[1:5]),
              w1 = runif(5, min = 1, max = 10),
              w2 = runif(5, min = 10, max = 20))

name       w1       w2
1    a 7.217998 14.51789
2    b 6.583311 13.01331
3    c 1.655201 18.83256
4    d 1.117273 19.81330
5    e 2.925724 13.21518

所以，我们假设我们的行只是第 5 行是 e，我的意思是:

name       w1       w2
1    a 7.217998 14.51789
     e 2.925724 13.21518
2    b 6.583311 13.01331
     e 2.925724 13.21518
3    c 1.655201 18.83256
     e 2.925724 13.21518
4    d 1.117273 19.81330
     e 2.925724 13.21518
5    e 2.925724 13.21518

提前致谢。

Answer 1

我们可以rbind最后一行的行序列( nrow )，连接( c )，用它来对数据集进行子集，用 head 删除最后一行，并将行名称设置为 NULL。

`row.names<-`(head(xdf[c(rbind(1:nrow(xdf), nrow(xdf))),],-1), NULL)
#   name       w1       w2
#1    a 7.217998 14.51789
#2    e 2.925724 13.21518
#3    b 6.583311 13.01331
#4    e 2.925724 13.21518
#5    c 1.655201 18.83256
#6    e 2.925724 13.21518
#7    d 1.117273 19.81330
#8    e 2.925724 13.21518
#9    e 2.925724 13.21518