问了两次呀,参见 :
https://bbs.pinggu.org/thread-3929410-1-1.html
> setdiff.data.frame = function(A, B){
+ g <- function( y, B){
+ any(apply(B, 1, FUN =function(x)
+ identical(all.equal(x,y),TRUE) ) )}
+ unique(A[!apply(A,1, FUN = function(t) g(t[-2], B) ), ])
+ }
> setdiff.data.frame = function(A, B){
+ g <- function( y, B){
+ any(apply(B, 1, FUN =function(x)
+ identical(all.equal(x,y),TRUE) ) )}
+ unique(A[!apply(A,1, FUN = function(t) g(t[-2], B) ), ])
+ }
> setdiff.data.frame(A, B)
timetypeprice amount
213:03:46 卖出0.571 728.3842
313:01:43 卖出0.5711200.0000
413:01:06 卖出0.5711328.3842
513:00:54 卖出0.5711748.3842
8 12:53:33 卖出0.5722953.0899