Dplyr join on = (a = b), dove a e b sono variabili contenenti stringhe?

Question

Sto cercando di eseguire un inner join su due tabelle usando dplyr, e penso di essere bloccato da regole di valutazione non standard. Quando si utilizza l'argomento by = ("a" = "b"), tutto funziona come previsto quando "a" e "b" sono stringhe reali. Ecco un esempio giocattolo che funziona:

library(dplyr) 
data(iris) 

inner_join(iris, iris, by=c("Sepal.Length" = "Sepal.Width")) 

Ma diciamo che stavo mettendo inner_join in una funzione:

library(dplyr) 
data(iris) 

myfn <- function(xname, yname) { 
    data(iris) 
    inner_join(iris, iris, by=c(xname = yname)) 
} 

myfn("Sepal.Length", "Sepal.Width") 

Ciò restituisce il seguente errore:

Error: cannot join on columns 'xname' x 'Sepal.Width': index out of bounds

Sospetto che ci è un'espressione di fantasia, deparabile, citante o non quotata che potrei fare per farlo funzionare, ma sono un po 'torbido su quei dettagli.

Answer 1

È possibile utilizzare

myfn <- function(xname, yname) { 
    data(iris) 
    inner_join(iris, iris, by=setNames(yname, xname)) 
} 

Il suggerito di sintassi nel ?inner_join documentazione dei

by = c("a"="b") # same as by = c(a="b") 

è leggermente fuorviante perché entrambi questi valori non sono valori carattere proprio. In realtà hai creato un vettore di caratteri con nome. Per impostare dinamicamente i valori a sinistra del segno di uguale è diverso da quelli sulla destra. È possibile utilizzare setNames() per impostare i nomi del vettore in modo dinamico.

Answer 2

So di essere in ritardo alla festa, ma come circa:

myfn <- function(byvar) { 
    data(iris) 
    inner_join(iris, iris, by=byvar) 
} 

questo modo si può fare quello che vuoi con:

myfn(c("Sepal.Length"="Sepal.Width"))