Immettere i nomi di nuove colonne come stringa nella funzione di ridenominazione di dplyr

Question

Le funzioni di ridenominazione di dplyr richiedono che il nuovo nome di colonna venga passato come nomi di variabili non quotate. Tuttavia ho una funzione in cui il nome della colonna è costruito incollando una stringa su un argomento passato e così è una stringa di caratteri.

Per esempio dire che ho avuto questa funzione

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

Se corro questo

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

ottengo

a new 
1 1 4 
2 2 5 
3 3 6 

Mentre io voglio la colonna 'nuovo' per essere il nome della stringa che ho costruito ('x_1'), ovvero

a x_1 
1 1 4 
2 2 5 
3 3 6 

Esiste comunque?

Answer 1

Penso che questo sia quello che stavi cercando. E 'l'uso di rename_ come @Henrik suggerito, ma l'argomento ha un, diciamo, interessante, nome:

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

Nota l'uso di setNames per utilizzare il valore della nuova come nome nella lista.