将两个相同的数据帧列合并到R中的逗号分隔列中

Question

我有两个结构相同的数据框(相同数量的行,列和相同的标题).我想要做的是将两者合并为一个具有逗号分隔列的数据框.

我知道如何使用这些虚拟数据帧,但在我自己的数据上使用它将非常麻烦.

这是我的虚拟数据帧,我的"真实"数据的标题是"1","2","3"等,而虚拟数据帧的标题是"X1","X2","X3"等.

> data1
  X1 X2 X3 X4
1  1  2  3  4
2  2  3  4  5
3  3  4  5  6
> data2
  X1 X2 X3 X4
1  8  9 13 14
2  9 10 14 15
3 10 11 15 16

我想要的是什么:

>data3
   new1 new2 new3 new4
 1  1,8  2,9 3,13 4,14
 2  2,9 3,10 4,14 5,15
 3 3,10 4,11 5,15 6,16

我是如何设法得到这个输出的.但是,对于我认为的大型数据集来说,它太麻烦了.

data1<- data.frame('1'=1:3, '2'=2:4, '3'=3:5,'4'=4:6)
data2<- data.frame('1'=8:10, '2'=9:11, '3'=13:15,'4'=14:16)
names(data1) <- c("1a","2a","3a","4a")
names(data2) <- c("1b","2b","3b","4b")

data3<- cbind(data1,data2)

cols.1 <- c('1a','1b'); cols.2 <-c('2a','2b')
cols.3 <- c('3a','3b'); cols.4 <-c('4a','4b')

data3$new1 <- apply( data3[ , cols.1] , 1 , paste , collapse = "," )
data3$new2 <- apply( data3[ , cols.2] , 1 , paste , collapse = "," )
data3$new3 <- apply( data3[ , cols.3] , 1 , paste , collapse = "," )
data3$new4 <- apply( data3[ , cols.4] , 1 , paste , collapse = "," )

data3 <-data3[,c(9:12)]

有没有办法可以迭代这个,也许有一个for循环？任何帮助,将不胜感激.

这些帖子有点类似:

同样的问题但是对于行而不是列: 如何将列值转换为逗号分隔的行值

类似,但不适用于我的大型数据集:将 多个列粘贴在一起

Answer 1

仅使用基数:

data1 <- data.frame(x1 = 1:3, x2 = 2:4, x3 = 3:5, x4 = 4:6)
data2 <- data.frame(x1 = 8:10, x2 = 9:11, x3 = 13:15, x4 = 14:16)

data3 <- mapply(function(x, y){paste(x,y, sep = ",")}, data1, data2)
data3 <- as.data.frame(data3)

    x1   x2   x3   x4
1  1,8  2,9 3,13 4,14
2  2,9 3,10 4,14 5,15
3 3,10 4,11 5,15 6,16