如何每隔一行向R数据框添加行？

Question

简介:如何m在我的m X n数据框中添加行,每个新行在每个现有行之后插入？我将基本上复制现有行,但对一个变量进行更改.

更多细节:在提到另一个问题时,我想我可以用rgl的segments3d函数做我想做的事.我有一组x,y,z点,但这些只是一组线段的一个终点.另一个终点在Z维度上距离很远,作为第四个变量:X,Y,Z,Z_Length; 在我的术语中它是东,北,海拔,长度.

根据rgl文档,"Points由seg3d成对拍摄".因此,我认为我需要修改我的数据框,以便每隔一行使用一个改变的Z变量(通过从Z减去Z_Length)来获得额外的条目.在视觉上,它需要从这个:

+-------+---------+----------+-----------+---------+
| Label | easting | northing | elevation | length  |
+-------+---------+----------+-----------+---------+
| 47063 |  554952 |  5804714 | 32.68     | 619.25  |
| 47311 |  492126 |  5730703 | 10.40     | 1773.00 |
+-------+---------+----------+-----------+---------+

对此:

+-------+---------+----------+-----------+---------+
| Label | easting | northing | elevation | length  |
+-------+---------+----------+-----------+---------+
| 47063 |  554952 |  5804714 | 32.68     | 619.25  |
| 47063 |  554952 |  5804714 | -586.57   | 619.25  |
| 47311 |  492126 |  5730703 | 10.40     | 1773.00 |
| 47311 |  492126 |  5730703 | -1762.26  | 1773.00 |
+-------+---------+----------+-----------+---------+

可以获得链接问题的数据样本.

Answer 1

您的样本数据:

orig.df <- read.table(text = "
Label easting northing elevation length
47063  554952  5804714 32.68 619.25 
47311  492126  5730703 10.40 1773.00", header = TRUE)

创建要插入的数据:

insert.df <- transform(orig.df, elevation = elevation - length)

将其附加到您的原始数据:

out.df <- rbind(orig.df, insert.df)

重新排序行:

n <- nrow(orig.df)
out.df[kronecker(1:n, c(0, n), "+"), ]
#   Label easting northing elevation  length
# 1 47063  554952  5804714     32.68  619.25
# 3 47063  554952  5804714   -586.57  619.25
# 2 47311  492126  5730703     10.40 1773.00
# 4 47311  492126  5730703  -1762.60 1773.00

Answer 2

我不确定如何rgl在这里发挥作用,但如果你只想创建一个data.frame具有重复值的新的,请尝试:

df[rep(1:nrow(df),1,each=2),]