[R] function 사용하여 반복작업 쉽게 하기

fig1. title

 

반복작업할때 function 기능 사용하면 코드를 간결화 할 수 있음.

 

기본

function(x, y) {

    any_command(x, y)

}

 

select_col 기능을 생성

select(), mutate(), filter() 세가지 명령을 한번에 함.

#10 -5th.1
col2 = c("id","psu","kstrata","wt_itvex","age","sex", "he_crea", "he_uph", "he_unitr", "he_usg", "he_upro", "he_uglu", "he_uket", "he_ubil", "he_ubld", "he_uro")
select_col <- function(df) {
  df %>%
    select(col2) %>%
    mutate(wt=wt_itvex*1/9.5) %>%
    select(-wt_itvex) %>%
    filter(!is.na(wt))
}

 

kn10, kn11 data에 적용

kn10_low <- kn10
names(kn10_low) <- tolower(names(kn10_low))
kn10_col <- select_col(kn10_low)
head(kn10_col)

#11 -5th.2
kn11_low <- kn11
names(kn11_low) <- tolower(names(kn11_low))
kn11_col <- select_col(kn11_low)
head(kn11_col)