R
데이터 전처리 과정에서 어려운 것이 있어 질문 드립니다.

예를 들어 남녀 표준 몸무게 표가 이렇게 있다고 할때

female
height weight
156 53.7
157 54.2
158 54.7
159 55.2
160 55.7
161 56.2
162 56.8
163 57.3
164 57.9
165 58.6
166 59.2
167 59.9
168 60.5
169 61.3
170 62

  

male
height weight
156 55.9
157 56.6
158 57.2
159 57.9
160 58.6
161 59.3
162 60.3
163 60.7
164 61.4
165 62.1
166 62.8
167 63.6
168 64.3
169 65
170 65.8

자료가 

data
gender height  
2 156  
1 166  
2 162  
2 167  
1 168  
2 165  
1 159  
2 159  
2 164  
1 158  
2 159  
1 160  
2 164  
1 159  
1 156  
1 159  
2 162  
1 158  
2 168  
1 161  
1 164  
1 161  
1 164  
1 162  
2 163  
1 156  
2 163  
2 167  
1 170  
1 156  

이 자료에서 (male = 1 , female = 2 ) 표준몸무게를 찾아서 새로운 열을 하나 더 만드려고 하는데요

 

st.wei <- function(x,y){
  res <-  ifelse(x==1,male[which(male$height==y),2],female[which(female$height==y),2] ) 
  return(res)
}

고민하다가 이렇게 function 지정해서 하려고 했는데..apply 는 안되는군요..ㅠㅠ

다른 방법은 없을까요??

 

R 데이터전처리
0
0
919
댓글 0