다른 csv 파일에있는 csv 파일의 행을 제거하십시오.

Question

두 개의 Excel 파일이 있습니다. 두 번째 파일에없는 첫 번째 파일 excel1에서 행을 제거하고 싶습니다.

여기 내 종료 결과입니다. 어떻게해야합니까?

Answer 1

내가 마지막으로이 코드를 얻을. 당연히 더 나은 접근법이있을 수도 있지만, 이것이 당신이 원하는 속임수입니다!

excel.1 <- data.frame(V1 = c(4,4,8,6,7), V2 = c(5,3,6,9,2)) 

excel.2 <- data.frame(V1 = c(7,8,4), V2 = c(2,6,3)) 


a <- expand.grid(1:nrow(excel.1), 1:nrow(excel.2)) 
a <- t(a) 
log.vec <- matrix(nrow = ncol(a), ncol = ncol(excel.2)) 
for (comb in 1:ncol(a)){ 
    log.vec[comb, ] <- excel.1[a[1, comb], ] == excel.2[a[2, comb], ] 
} 

log.vec <- cbind(log.vec, rowSums(log.vec)) 

equal <- a[, log.vec[, 3] == 2] 

new.matrix <- excel.1[-equal[1,], ] 

Answer 2

당신은 CSV를 읽을 수는 파일 또한이 게시물을 참조 할 수 있습니다

excel1<-read.csv("excel1.csv", header=T) 
excel2<-read.csv("excel2.csv", header=T) 
excel1.excel2<-setdiff(excel1, excel2) 

당신이 재현 예를 준비하는 데 도움이 먼저 : How to make a great R reproducible example?