r - 10 個の変数をペアでマージして 1 つの変数にする

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