R語言中實現將多行數據合並為一行

1、將連續兩行數據合並為一行

dat <- read.table("outcome.ped")
dat <- dat[,-(1:16)]
dat

result <- data.frame()    ## 生成母版

for (i in 1:(nrow(dat)/2)) {                    ## 行數縮減1倍
  temp1 <- c(dat[2 * i - 1,], dat[2 * i,])      ## 兩行合並為一個向量
  result <- rbind(result, temp1)                ## 添加到數據框
}
result

 

 

2、將連續的三行數據合並為一行（同上）

dat <- read.table("outcome.ped")
dat <- dat[,-(1:16)]
dat

result <- data.frame()

for (i in 1:(nrow(dat)/3)) {
  temp1 <- c(dat[i * 3 - 2,], dat[i * 3 - 1,], dat[i * 3,])
  names(temp1) <- colnames(result)
  result <- rbind(result, temp1)
}
colnames(result) <- paste0("v", 1:ncol(result))
result