dplyr을 사용하는 그룹 간의 차이를 기반으로하는 열 축소

Question

나머지 요약 통계가 각 그룹의 열 값 차이가되도록 그룹 전체에 여러 열을 축소하려고합니다. 두 가지 방법이 있지만 나는이 일을해야한다는 더 좋은 방법이 있다는 느낌을 가지고 있습니다.

test %>% 
    gather(key,val,val:val2) %>% 
    spread(id,val) %>% 
    mutate(B.less.A = B - A) %>% 
    select(-c(A,B)) %>% 
    spread(key,B.less.A) 

tidyr summarize_each 방법을 사용하여

예 데이터 summarize_each

test %>% 
    group_by(year) %>% 
    summarize_each(funs(.[id == "B"] - .[id == "A"]), val, val2) 

를 사용

library(dplyr) 
library(tidyr) 

test <- data.frame(year = rep(2010:2011, each = 2), 
       id = c("A","B"), 
       val = 1:4, 
       val2 = 2:5, 
       stringsAsFactors = F) 

는 비교적 간단한데하지만 난 그룹화하여이 작업을 수행 할 수있는 방법이 느낌 어떻게 든 이드는? 열의 NA 값을 무시할 수있는 방법이 있습니까?

Answer 1

우리는 data.table

library(data.table) 
setDT(test)[, lapply(.SD, diff), by = year, .SDcols = val:val2] 
# year val val2 
#1: 2010 1 1 
#2: 2011 1 1