合併單元格

Question

1. 我有一個矩陣以下類型的 「一」：

   a<-matrix(c(1,"ich esse", 1, "gerne bananen", 1, "dazu auch einen apfel", 2, "ich mag brezen", 2, "mit butter"), nrow=5, ncol=2, byrow = TRUE) 
   

2. 我希望得到一個矩陣 「B」 看起來像這樣：

   b<-matrix(c(1,"ich esse gerne bananen dazu auch einen apfel", 2, "ich mag brezen mit butter"), nrow=2, ncol=2, byrow = TRUE) 
   

Answer 1

用dplyr

library(dplyr) 

a <- as.data.frame(a) 
names(a) <- c('group', 'text') 

a %>% 
    group_by(group) %>% 
    summarise(text2 = paste(text, collapse = " ")) %>% 
    as.matrix() 

的答案

Answer 2

下面是另一種解決方案：

library(data.table) 
library(stringr) 
a<-matrix(c(1,"ich esse", 1, "gerne bananen", 1, "dazu auch einen apfel", 2, "ich mag brezen", 2, "mit butter"), nrow=5, ncol=2, byrow = TRUE) 
d<- as.data.table(a) 
d[,str_c(V2,collapse=' '),by=V1] 
# V1           V1 
#1: 1 ich esse gerne bananen dazu auch einen apfel 
#2: 2     ich mag brezen mit butter