如何按指定顺序连接字符串

Question

尝试从这篇文章如何交替连接3个字符串对字符串进行对角线连接，但是没有成功。

我的输入是：

a<-c("a1","a2","a3")
b<-c("b1","b2","b3")
c<-c("c1","c2","c3")

我的期望输出结果是：

   "a1" "b2" "c3" "a2" "b3" "a3"

如何从上面获取。

  c(rbind(a,b,c))  

- user3764639

Answer 1

如何通过行和列派生的值，将向量按顺序排列，同时将下三角设置为缺失值？

mat <- rbind(a,b,c)

mat[lower.tri(mat)] <- NA
na.omit(mat[order(col(mat) - row(mat))])

- user20650

Answer 2

一种方法是调整Mark的解决方案

as.vector(na.omit(c(sapply(1:3, function(i) c(a[i], b[i+1], c[i+2])))))
#[1] "a1" "b2" "c3" "a2" "b3" "a3"

此外，

 vec1 <- c(a,b,c)
 indx <- seq(1,length(vec1), by=4)+rep(0:2,each=3)
 indx1 <- indx[indx <= length(vec1)]
 vec1[indx1[-length(indx1)]]
 #[1] "a1" "b2" "c3" "a2" "b3" "a3"

- akrun