4

我正在尝试按 ID 合并两个不同大小的数据。但是，对于匹配的值，两个数据都包含重复的条目，即数据A中可能有三个ID#3，数据B中可能有三个ID#3。当我尝试合并数据时，结果比两者都大得多数据结合。

C<-merge(A,B,by="ID",all.x=T,sort=F)

我想通过 ID 列合并这两个数据，使得 B 中的第一个 ID #3 与 A 中的第一个 ID #3 配对，依此类推。

另外，我希望数据 A 的行顺序保持不变。sort=FALSE 并没有太大帮助：它将所有匹配的行放在顶部，将不匹配的行放在底部。

谢谢你的帮助！

4

2 回答 2

5

在合并之前，您需要向每个 data.frame 添加一个列，该列的值记录每个观察值在其自己的 ID 组中的索引。

## Example data
A <- data.frame(ID=c(1,1,1,2), ht=1:4)
B <- data.frame(ID=c(1,1,2,2), wt=3:6)

## Add column with number of each observation within ID
A <- transform(A, ID2=ave(ID, ID, FUN=seq_along))
B <- transform(B, ID2=ave(ID, ID, FUN=seq_along))

## Now carry out the merge
merge(A, B, all.x=TRUE, sort=FALSE)
#   ID ID2 ht wt
# 1  1   1  1  3
# 2  1   2  2  4
# 3  2   1  4  5
# 4  1   3  3 NA
于 2013-02-02T01:12:13.290 回答
2

感谢您的帮助，它真的很有用。我最终将一列数字添加到我想要保留顺序的较大数据中。

使用@Josh O'Brien 的例子，

> ## Example data
> A <- data.frame(ID=c(1,1,1,2), ht=1:4)
> B <- data.frame(ID=c(1,1,2,2), wt=3:6)
> 
> ## Add column with number of each observation within ID
> A <- transform(A, ID2=ave(ID, ID, FUN=seq_along))
> B <- transform(B, ID2=ave(ID, ID, FUN=seq_along))
> 
> # Add a new column in A that numbers the row from 1 to number of row
> A$ORDER_DATA <- 1:nrow(A) 
> 
> ## Now carry out the merge
> C<-merge(A, B, all.x=TRUE, sort=FALSE)
> 
> # Sort the merged data by ORDER_DATA column
> D<-C[with(C,order(ORDER_DATA)),]
> D
  ID ID2 ht ORDER_DATA wt
1  1   1  1          1  3
2  1   2  2          2  4
4  1   3  3          3 NA
3  2   1  4          4  5
于 2013-02-05T08:50:28.237 回答