r - 将10个变量成对合并成一个变量

Question

这就是我的文件的样子：

#Var1    Var2   Var3  Var4
#0         1    2       1

我想要这样的东西：

#Var1     Var2
#01        21

对于给您带来的任何不便，我深表歉意，我试图在提出这个问题时尽可能清楚。我对 R 和 stackoverflow 很陌生。我真的很感激任何帮助。

Answer 1

只是另一种方式（假设tt是你的data.frame）：

sapply(seq(1, ncol(tt), by=2), function(x) do.call(paste0, c(tt[,x:(x+1)])))
# [1] "01" "21"

（或）@Sven 在评论下显示：

setNames(as.data.frame(lapply(seq(1, ncol(tt), by=2), 
         function(x) do.call(paste0, c(tt[,x:(x+1)])))), names(tt)[1:2])

Answer 2

# The data
dat <- data.frame(0, 1, 2, 1)

# Transform data
as.data.frame(lapply(c(1, 3), function(x) paste(dat[c(x, x+1)], collapse = "")))

  X.01. X.21.
1    01    21