求助：想要去掉for循环对矩阵中元素按每两行不同列元素粘贴

即矩阵元素为第一行1,2,3,4;第二行2,3,4,5;对他们两行进行粘贴为12,23,34,45;矩阵由多行，两两粘贴的情况下，怎么不使用for循环写出来，用for数据大的话会很慢
我的代码是这个样子的：
n<-1
for (i in 1:(nrow(GO_matrix)-1)) {
    for (j in (i+1):nrow(GO_matrix)) {
      x1<-GO_matrix[i,]
      x2<-GO_matrix[j,]
      x3<-paste(x1,x2,sep = "")
      gene_gene[n,]<-x3
      n<-n+1
    }
  }
怎么能去掉for循环，谢谢。

mt1 <- matrix(1:8,ncol=2)

paste0(mt1[,1],mt1[,2])

借楼上的数据，你可以把原矩阵的最后一行去掉，和第一行去掉，生成2个矩阵。然后对应元素用paste即可

1. mt1 <- matrix(1:8,ncol=2)
   
2. 
   
3. mt1_init = mt1[-nrow(mt1),]
   
4. mt1_first = mt1[-1,]
   
5. 
   
6. matrix(paste0(mt1_init,mt1_first),ncol=2)

复制代码

wangfs111222 发表于 2019-9-7 19:24
mt1

我的数据是一个很大的数据，将近一万行，如果使用你说的会更麻烦

jiangbeilu 发表于 2019-9-7 21:07
借楼上的数据，你可以把原矩阵的最后一行去掉，和第一行去掉，生成2个矩阵。然后对应元素用paste即可

我的目的是n行数据，两两粘贴，比如说第一行与剩下第n-1行，第二行与n-2行，一直这样子粘贴

n.samples <- 10000

a.1 <- matrix(1:(3 * n.samples),nrow=3)
a.1
b.1 <- a.1[1:(nrow(a.1)-1),]
b.2 <- a.1[2:nrow(a.1),]
system.time(b.3 <- paste0(b.1,b.2))
# 用户 系统 流逝
# 0.01 0.00 0.02

你要的10000行耗时

wangfs111222 发表于 2019-9-9 19:26
n.samples

你这里写的只是两行，我是很多行，类似于下图然后粘贴