R은 : 추천 I는 dataframe (alter.hh2)가

Question

다른 칼럼의 값에 기초하여 현재의 행을 다른 행의 값을 추가 다음

 wk   hh   brd  count  flavor mean_multi h_size 
    1 W52  1213  546  1   PEACH 2.11   2 
    2 W52  4493  546  1   BBA  1.63   2 
    5 W53  2093  5367  4   PEA  2.12   2 
    6 W53  2043  5366  5   RBYA  1.93   1 
    9 W53  2093  546  8   VANI  1.78   2 

각 행

, I의 값을 추가 할 (다른 값의 경우), mean_multi 및 BRD 그것에 동일한 주와 같은 맛의 각 행에 그대로 남아있는 값을 유지하면서 다음

wk  hh  brd count flavor mean_multi h_size flavor2 brd2 mean_multi2 
W52 1213 546 1  PEACH 2.11  2  BBA  546 1.63 
W52 4493 546 1  BBA  1.63  2  PEACH 546 2.11 
W53 2093 5367 4  PEA  2.12  2  RBYA 5367 1.93 
W53 2043 5366 5  RBYA  1.93  1  PEA  5366 2.12 

각 주에 2 개 이상의 값이 있는지 결과를 다음과 같이 (반복적으로) 나타내겠습니다.

wk hh brd count flavor mean_multi h_size flavor2 brd2 mean_multi2 flavor3 brd3 mean_multi3 
    W53 2093 5367 4  PEA 2.12  2 RBYA 5366 1.93   VANI 546 1.78 
    W53 2043 5366 5  RBYA 1.93  1 PEA 5367 2.12   VANI 546 1.78 
    W53 2093 546 8  VANI 1.78  2 PEA 5367 2.12   RBYA 5366 1.93 

은 비록 패키지를 바꿀 다음 코드를 사용하여 시도했지만, 나에게 원하는 결과를 제공하지 않은 것 같습니다 :

w <- reshape(alter.hh2, 
     timevar = c("flavor","wk"), 
     idvar = c("count", "hh"), 
     direction = "wide")  

겠습니까 크게 어떤 통찰력을!

Answer 1

data.table을 사용할 수 있습니다. "wk"('nm1') 당 다른 값이있는 경우 추가해야하는 열 이름을 가져옵니다 (예 : "brd", "flavor", "mean_multi"). 'data.frame'을 'data.table'(setDT(alter.hh2))로 'hh'로 그룹화하고 첫 번째 행 (head(.SD, 1))을 선택한 다음 'wk'로 그룹화하고 .SDcols을 지정하고 열을 반복하여 .SDcols 그 반대의 값을 얻고 결과를 새로운 열에 할당하십시오 (:=).

library(data.table) 
nm1 <- names(alter.hh2)[c(3, 5, 6)] 
setDT(alter.hh2)[,head(.SD, 1) , hh][, paste0(nm1, 2) := lapply(.SD, rev), 
      by = wk, .SDcols = nm1][] 
#  hh wk brd count flavor mean_multi h_size brd2 flavor2 mean_multi2 
#1: 1213 W52 546  1 PEACH  2.11  2 546  BBA  1.63 
#2: 4493 W52 546  1 BBA  1.63  2 546 PEACH  2.11 
#3: 2093 W53 5367  4 PEA  2.12  2 5367  PEA  2.12 
#4: 2043 W53 5366  5 RBYA  1.93  1 5366 RBYA  1.93