或如下的可用 merge()
> dataA <- data.frame(ID=c("A", "A", "B", "C", "D"))
> dataB <- data.frame(ID=c("A", "B", "C"), Total=c(150, 100, 60))
> setdiff(dataA$ID, dataB$ID)
[1] "D"
> dataB <- rbind(dataB, data.frame(ID="D", Total=0))
> merge(dataA, dataB)
ID Total
1 A 150
2 A 150
3 B 100
4 C 60
5 D 0