R - 在一个数据集中加入/合并行

Question

我想知道如何使用R合并一组数据中的行。

目前我的数据是这样的：

Text 1  Text 2  Text 3  Text 4 
Bob  Aba   Abb   Abc 
Robert  Aba   Abb   Abc 
Fred  Abd   Abe   Abf 
Martin  Abg   Abh   Abi 

如果文本两个文本3都为两行相同（如行1 & 2）我想用更多的把它做成一排其他数据的列。

Text 1  Text 1a Text 2   Text 3  Text 4  Text 4a 
Bob   Robert  Aba   Abb   Abc  Abd 
Fred  NA   Abd   Abe   Abf  NA 
Martin  NA   Abg   Abh   Abi  NA 

我与数据连接两套独立的，并使用加入

join=join(Data1, Data2, by = c('Text2'), type = "full", match = "all") 

，但我不能工作，如何一组数据中做了重复的将它们合并类似的东西。

我认为有可能使用聚合，但我没有使用它之前，我的尝试是：

MyDataAgg=aggregate(MyData, by=list(MyData$Text1), c) 

但是当我尝试，我得到一个输出看起来像这样的总结：

1 -none- numeric        
1 -none- numeric        
2 -none- numeric 

或本上结构：

$ Initials    :List of 12505 
    ..$ 1 : int 62 
    ..$ 2 : int 310 
    ..$ 3 : int 504 

我也想能够排结合s使用两个变量的匹配元素。

Answer 1

我不认为你可以重塑或累计因为：

1. 您有重复对应相同的密钥
2. 您不必为每个键相同数量的值的行：你应与遗漏值

这里使用by通过钥匙来处理AA手动尝试，rbind.fill填充它聚合所有列表在一起。每个by步骤，正在创建具有（Text2，Text3）作为关键的单行数据帧。

do.call(plyr::rbind.fill,by(dat,list(dat$Text2,dat$Text3), 
    function(d){ 
    ## change all other columns to a one row data.frame 
    dd <- as.data.frame(as.list(rapply(d[,-c(2,3)],as.character))) 
    ## the tricky part : add 1 to a name like Text1 to become Text11 , 
    ## this is import to join data.frames formed by by 
    names(dd) <- gsub('(Text[0-9]$)','\\11',names(dd)) 
    ## add key to to the row 
    cbind(unique(d[,2:3]),dd) 
    })) 

Text2 Text3 Text11 Text12 Text41 Text42 
1 Aba Abb Bob Robert Abc Abd 
2 Abd Abe Fred <NA> Abf <NA> 
3 Abg Abh Martin <NA> Abi <NA>