So fügen Sie dem Objekt ggplot eine Zeichenfolge als Code hinzu

Question

Ein Teil meines Codes für ggplot ist in einem Zeichenvektor gespeichert. Ich möchte diesen Code als zusätzliche Geoms für meinen ggplot verwenden.

Example1:

DF=data.frame(x=seq(1:10), y=seq(1:20)) 
    a='geom_line()'# This is a string that should be converted to RCode 

Bisher habe ich versucht:

ggplot(DF, aes(x,y))+geom_point()+a 
Error: Don't know how to add a to a plot 

ggplot(DF, aes(x,y))+geom_point()+as.name(a) 
Error: Don't know how to add as.name(a) to a plot 

ggplot(DF, aes(x,y))+geom_point()+eval(parse(text=a)) 
Error in geom_line() + geom_line(y = 1) : 
non-numeric argument to binary operator 

ggplot(DF, aes(x,y))+geom_point()+deparse(substitute(a)) 
Error: Don't know how to add deparse(substitute(a)) to a plot 

Beispiel 2:

DF=data.frame(x=seq(1:10), y=seq(1:20)) 
a='geom_line()+geom_line(y=1)' 

Wahrscheinliche Sie sich fragen, warum ich, dass in einem ersten tun möchten Ort? In einer for-Schleife habe ich Ausdrücke erstellt und in einer Liste als Zeichen gespeichert. Später fügte ich alle Ausdrücke in einen einzigen String-Ausdruck ein. Nun möchte ich diese Zeichenfolge einem ggplot-Befehl hinzufügen. Irgendwelche Vorschläge?

Bearbeiten: Beispiel 1 wurde erfolgreich gelöst. Aber Beispiel 2 bleibt ungelöst.

Answer 1

Die parse Funktion hat einen Textargument, den Sie an a übergeben müssen. Versuchen:

ggplot(DF, aes(x,y)) + geom_point() + eval(parse(text = a))

Mehr Infos hier: http://adv-r.had.co.nz/Expressions.html#parsing-and-deparsing

Bei mehreren Aussagen ist es möglich, den ursprünglichen Ausdruck Deparse, fügen Sie den neuen und dann bewerten als Ganzes

original <- deparse(quote(ggplot(DF, aes(x,y)) + geom_point())) 
new_call <- paste(original, '+', a) 
eval(parse(text = new_call))