合并两行一矩阵[关闭]

Question

我有一个矩阵：

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"

Answer 1

我们可以将apply与MARGIN=2 ， paste元素paste在一起以创建vector ，然后再次paste以获得单个字符串。

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

---

或者我们可以进行转置并仅使用单个paste来折叠列

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