合并合并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