R 合并一个矩阵的两行

我有一个矩阵：

d = matrix(c("a", "a", "b", "b", "c", "c"), nrow = 2, byrow = TRUE)
#     [,1] [,2] [,3]
#[1,] "a"  "a"  "b" 
#[2,] "b"  "c"  "c" 

我想得到两行的组合：

d_res = paste(c("a_b", "a_c", "b_c"), collapse = ",")
# [1] "a_b,a_c,b_c"

---

我们可以将

apply

与

MARGIN=2

和

paste

元素一起使用，以创建

向量

，然后再次使用

paste

以获得单个字符串

paste(apply(d, 2, FUN= paste, collapse="_"), collapse=',')
#[1] "a_b,a_c,b_c"

---

或者我们可以使用转置，只使用一个

粘贴

来折叠列

 d1 <- t(d)
 paste(d1[,1], d1[,2], sep="_", collapse=",")
 #[1] "a_b,a_c,b_c"

d1