Erreur d'argumentation non-numérique dans la fonction utilisateur ggplot2

Question

J'essaye d'écrire une fonction universelle pour générer des graphiques de dispersion ggplot2 basés sur l'entrée de l'utilisateur. Voilà ce que j'ai jusqu'à présent:

G.Point <- function(USER2, USER3, USER4, X, Y){ 
Point <<- Plot.data + geom_point(
aes_string(x = USER2, y = USER3, colour = USER4) + 
    xlab(X) + 
    ylab(Y)) 
} 
G.Point("USER2", "USER3", "USER4", "X", "Y") #These are called something else in actual code. 
plot(Point) 

Cela revient sans cesse l'erreur « argument non numérique à l'opérateur binaire », mais pour autant que je peux dire que je ne suis pas la création d'un opérateur binaire donc mes entrées non numériques ça devrait aller. Ce code a bien fonctionné avant que je commence à essayer de spécifier l'étiquette x et y.

Je dois manquer quelque chose de stupide car je suis nouveau à écrire mes propres fonctions dans R.

Merci à l'avance.

Answer 1

je suppose que l'erreur serait de ne pas fermer les accolades

geom_point(
    aes_string(x = USER2, y = USER3, colour = USER4)) 

En outre, il est préférable de ne pas utiliser <<-. Au lieu de cela

G.Point <- function(USER2, USER3, USER4, X, Y){ 
    print(Plot.data + 
     geom_point(aes_string(x = USER2, y = USER3, colour = USER4)) + 
     xlab(X) + 
     ylab(Y)) 
    } 
G.Point("USER2", "USER3", "USER4", "X", "Y") 

NOTE: Un exemple reproductible aurait été mieux