在行之间插入空白行

Question

简介：如何将m行添加到我的m X n数据框中，其中每个新行都插入每个现有行之后？我将基本上复制现有的行，但是对一个变量进行更改。

更多细节：参考another question，我想我可以用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),]

Answer 3

如果我理解你在做什么，这是一种可行的方法：

dat <- head(CO2, 10) # fake data set

L1 <- lapply(1:nrow(dat), function(i) {
    dat2x <-  dat[i, ]
    dat2x[4] <- dat[i, 4] - dat[i, 5]
    rbind(dat[i, ], dat2x)
})
do.call(rbind, L1)

编辑：完全解决e4e5f4的出色响应：

new <- dat[rep(1:nrow(dat),1,each=2),]
new[c(F, T),4] <- dat[4] - dat[5]

两者都是等价的，但我认为改变速度更快。

Answer 4

修改自“e4e5f4”的回复

在行之间插入空白行

    # sample matrix of df 
    old <-matrix(1:9, ncol=3)

    # double all rows 
    new <- old[rep(1:nrow(old),1,each=2),]

    # replace all duplicates with blank cells
    new[c(seq(2, dim(new)[1], by=2)), ] <- ""

    old # original 
    new # all ok ;)

Answer 5

您可以创建一个行数为两倍的新矩阵，将旧数据框元素放回新矩阵的适当位置，并留下间隙。对高程执行计算，创建新矩阵，然后将调整后的高程矩阵插入较大的新矩阵中。然后将矩阵转换回数据帧。

test <- matrix(1:9, ncol=3)
ind <- (1:nrow(test)*2 - 1 # - 1 b/c you want to insert rows after, not before, existing rows
test_new <- matrix(rep(NA, (nrow(test)*2*ncol(test))), ncol=ncol(test))
test_new[ind,] <- test

test_elev <- test #create a new matrix that will have adjusted elevations
test_elev[,2] <- test[,2] - test[,3] #e.g., test[,2] is the elevation column, and test[,3] is the length column
test_new[ind+1,] <- test_elev #then put the new elevations into the new matrix

#if you need it to be a data.frame() again, you can use `as.data.frame(test_new)`

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

5 个答案:

在行之间插入空白行