Wprowadź nowe nazwy kolumn jako ciąg w funkcji zmiany nazwy dplyr

Question

Funkcje zmiany nazwy dplyr wymagają podania nowej nazwy kolumny jako niecytowane nazwy zmiennych. Mam jednak funkcję, w której nazwa kolumny jest skonstruowana przez wklejenie ciągu znaków na przekazywany argument, a więc jest ciągiem znaków.

Na przykład powiedzieć, że miał tę funkcję

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

Jeśli uruchomić ten

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

uzyskać

a new 
1 1 4 
2 2 5 
3 3 6 

Podczas gdy chcę 'nowych' kolumna będzie nazwa ciągu, który skonstruowałem ("x_1"), tj.

a x_1 
1 1 4 
2 2 5 
3 3 6 

Czy tak jest w ogóle?

Answer 1

Myślę, że tego właśnie szukałeś. Jest wykorzystanie rename_ jak sugeruje @Henrik, ale argument ma, powiedzmy, ciekawe, nazwa:

> 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 
> 

Uwaga wykorzystanie setNames do używania wartość nowych jak nazwisko na liście.