행을 일치시키고 열을 뺍니다.

Question

동일한 열과 다른 행 수를 가진 두 개의 데이터 집합이 있습니다.

> dput(smalldf) 
structure(list(X = structure(1:5, .Label = c("A", "B", "C", "F", 
"G"), class = "factor"), Y = c(1L, 2L, 3L, 6L, 7L), Z = c(10L, 
20L, 30L, 60L, 70L)), .Names = c("X", "Y", "Z"), class = "data.frame", row.names = c(NA, 
-5L)) 


> dput(bigdf) 
structure(list(X = structure(1:7, .Label = c("A", "B", "C", "D", 
"E", "F", "G"), class = "factor"), Y = c(10L, 20L, 30L, 40L, 
50L, 60L, 70L), Z = c(100L, 200L, 300L, 400L, 500L, 600L, 700L 
)), .Names = c("X", "Y", "Z"), class = "data.frame", row.names = c(NA, 
-7L)) 

나는 비슷한 행을 일치시키고 Y 열을 뺍니다. 나는 이것이 아주 간단한 일이라는 것을 알고 있지만 그것을 할 수 없었다! match()을 사용해야합니까? 또는 어떤 종류의 apply() 기능이 여기에 있습니까?

Answer 1

이것은 다소 일반적인 문제입니다. 당신이 시야에 apply이 같은 제안으로 base R에서 할 수있는 한 가지 방법은

# rows of bigdf that appear in smalldf, in order that they appear in smalldf 
idx <- match(rownames(smalldf) , rownames(bigdf)) 

# subtract rows of smalldf from bigdf for rows that appear in smalldf and rbind them with original rows from bigdf that do not appear in samlldf 
result <- rbind((bigdf[ idx , ] - smalldf) , bigdf[ -idx , ]) 

# Order the results 
result <- result[ order(rownames(result)) , ] 
    X Y Z 
A 3 2 5 
B 10 3 7 
C 0 0 6 
D 5 3 4 
E 9 -2 20 

내 생각