dplyr의 이름 바꾸기 함수에서 문자열로 새 열 이름을 입력하십시오.

Question

dplyr의 이름 바꾸기 함수는 따옴표없는 변수 이름으로 새 열 이름을 전달해야합니다. 그러나 나는 전달 된 인수에 문자열을 붙여 넣어서 열 이름을 구성하는 함수를 가지고 있으므로 문자열이기도합니다. 예를 들어

내가 '새로운'열 이름이 원하는 반면 나는

a new 
1 1 4 
2 2 5 
3 3 6 

를 얻을 나는이

df <- data.frame(a = 1:3, old = 4:6) 
myFunc(df, 'x') 

를 실행하면 내가이 기능

myFunc <- function(df, col){ 
    new <- paste0(col, '_1') 
    out <- dplyr::rename(df, new = old) 
    return(out) 
} 

있었다라고 내가 만든 문자열 ('x_1'), 즉

a x_1 
1 1 4 
2 2 5 
3 3 6 

어쨌든이 작업이 수행되고 있습니까?

Answer 1

나는 이것이 당신이 찾고있는 것이라고 생각합니다. setNames의 사용이 목록에 이름으로 새 값을 사용하는

> myFunc <- function(df, col){ 
+ new <- paste0(col, '_1') 
+ out <- dplyr::rename_(df, .dots=setNames(list(col), new)) 
+ return(out) 
+ } 
> myFunc(data.frame(x=c(1,2,3)), "x") 
    x_1 
1 1 
2 2 
3 3 
> 

참고 :이 @Henrik 제안 rename_로 사용하지만 인수가 있고, 흥미, 이름을 말할 수 있습니다.