R 中的 rbind 命令在同一个数据集中

Question

如果我们有 2 个拆分数据集，则 rbind 命令很容易使用。 例如

d1=structure(list(a = c(1L, 4L), b = c(2L, 5L), c = c(3L, 6L)), class = "data.frame", row.names = c(NA, 
-2L))
d2=structure(list(a = c(7L, 10L), b = c(8L, 11L), c = c(9L, 12L)), class = "data.frame", row.names = c(NA, 
-2L))

new=rbind(d1,d2)

但是如果数据没有分开，如何使用 rbind function，但它们在一个数据集中

test=structure(list(a = c(1L, 4L), b = c(2L, 5L), c = c(3L, 6L), X = c(NA, 
NA), X.1 = c(NA, NA), d = c(7L, 10L), e = c(8L, 11L), f = c(9L, 
12L)), class = "data.frame", row.names = c(NA, -2L))

得到 output

   a  b  c
1  1  2  3
2  4  5  6
3  7  8  9
4 10 11 12

Answer 1

尝试下一个代码：

#Code
new <- rbind(test[,1:3],setNames(test[,6:8],names(test[,1:3])))

Output：

   a  b  c
1  1  2  3
2  4  5  6
3  7  8  9
4 10 11 12

Answer 2

假设数据列总是由NA列分隔，那么也许我们可以尝试下面的基本 R 代码，其中应用了is.na rle Filter + rbind

lst <- with(
  rle(sapply(
    test,
    function(x) all(!is.na(x))
  )),
  Filter(
    function(v) all(!is.na(v)),
    split.default(
      test,
      cut(seq_along(test), c(0, cumsum(lengths)))
    )
  )
)

out <- do.call(
  rbind,
  c(
    make.row.names = FALSE,
    lapply(lst, setNames, nm = names(lst[[1]]))
  )
)

我们将获得

> out
   a  b  c
1  1  2  3
2  4  5  6
3  7  8  9
4 10 11 12

Answer 3

您可以编写一个小的 function 在mapply中使用seq.int ，这将为您完成这项工作。

f <- function(data, start, ncol) {
  s <- mapply(seq.int, start, start + ncol - 1)
  as.data.frame(apply(s, 1, function(s) unlist(data[, s])))
}

用法

res <- f(test, start=c(1, 6), ncol=3)
res
#   V1 V2 V3
# 1  1  2  3
# 2  4  5  6
# 3  7  8  9
# 4 10 11 12

## or, if names wanted
res <- setNames(f(test, start=c(1, 6), ncol=3), names(test)[1:3])
res
#    a  b  c
# 1  1  2  3
# 2  4  5  6
# 3  7  8  9
# 4 10 11 12

---

数据：

test <- structure(list(a = c(1L, 4L), b = c(2L, 5L), c = c(3L, 6L), X = c(NA, 
NA), X.1 = c(NA, NA), d = c(7L, 10L), e = c(8L, 11L), f = c(9L, 
12L)), class = "data.frame", row.names = c(NA, -2L))