Adressierung x und y in aes durch Variablennummer

Question

Ich muss ein Streudiagramm mit Adressvariablen durch ihre Spaltennummern anstelle von Namen, d. H. Anstelle von ggplot(dat, aes(x=Var1, y=Var2)) Ich brauche so etwas wie ggplot(dat, aes(x=dat[,1], y=dat[,2])). (Ich sage 'etwas', weil das letztere nicht funktioniert).

Hier ist mein Code:

showplot1<-function(indata, inx, iny){ 
    dat<-indata 
    print(nrow(dat)); # this is just to show that object 'dat' is defined 
    p <- ggplot(dat, aes(x=dat[,inx], y=dat[,iny])) 
    p + geom_point(size=4, alpha = 0.5) 
} 

testdata<-data.frame(v1=rnorm(100), v2=rnorm(100), v3=rnorm(100), v4=rnorm(100), v5=rnorm(100)) 
showplot1(indata=testdata, inx=2, iny=3) 

# Error in eval(expr, envir, enclos) : object 'dat' not found 

Answer 1

Ich empfehle dringend aes_q statt Vektoren an aes übergeben (@ Arun's Antwort). Es sieht vielleicht etwas komplizierter aus, aber es ist flexibler, wenn z.B. Aktualisierung der Daten

showplot1 <- function(indata, inx, iny){ 
    p <- ggplot(indata, 
       aes_q(x = as.name(names(indata)[inx]), 
        y = as.name(names(indata)[iny]))) 
    p + geom_point(size=4, alpha = 0.5) 
} 

Und hier ist der Grund, warum es vorzuziehen ist:

# test data (using non-standard names) 
testdata<-data.frame(v1=rnorm(100), v2=rnorm(100), v3=rnorm(100), v4=rnorm(100), v5=rnorm(100)) 
names(testdata) <- c("a-b", "c-d", "e-f", "g-h", "i-j") 
testdata2 <- data.frame(v1=rnorm(100), v2=rnorm(100), v3=rnorm(100), v4=rnorm(100), v5=rnorm(100)) 
names(testdata2) <- c("a-b", "c-d", "e-f", "g-h", "i-j") 

# works 
showplot1(indata=testdata, inx=2, iny=3) 
# this update works in the aes_q version 
showplot1(indata=testdata, inx=2, iny=3) %+% testdata2 

---

Hinweis: Ab ggplot2 v2.0.0aes_q() hat mit aes_() konsistent zu sein mit SE Versionen ersetzt von NSE-Funktionen in anderen Paketen.

Answer 2

Versuchen:

showplot1 <- function(indata, inx, iny) { 
    x <- names(indata)[inx] 
    y <- names(indata)[iny] 
    p <- ggplot(indata, aes_string(x = x, y = y)) 
    p + geom_point(size=4, alpha = 0.5) 
} 

Edited zu zeigen, was passiert - aes_string Anwendungen Argumente zitiert, Namen bekommt sie Ihre Zahlen.

Answer 3

provisorische Lösung, die ich für den Augenblick gefunden:

showplot1<-function(indata, inx, iny){ 
    dat<-data.frame(myX=indata[,inx], myY=indata[,iny]) 
    print(nrow(dat)); # this is just to show that object 'dat' is defined 
    p <- ggplot(dat, aes(x=myX, y=myY)) 
    p + geom_point(size=4, alpha = 0.5) 
} 

Aber ich weiß nicht wirklich wie es denn in meinem realen Code, ich brauche andere Spalten von indata und hier werde ich ausdrücklich alle von ihnen definieren müssen in dat<- ...

Answer 4

Ihr Problem ist, dass aes nicht die Umgebung Ihrer Funktion kennt und es nur innerhalb global environment aussieht. So wird die Variable dat in der Funktion deklariert ist nicht sichtbar zu ggplot2 ‚s aes Funktion , wenn Sie es ausdrücklich als übergeben:

showplot1<-function(indata, inx, iny) { 
    dat <- indata 
    p <- ggplot(dat, aes(x=dat[,inx], y=dat[,iny]), environment = environment()) 
    p <- p + geom_point(size=4, alpha = 0.5) 
    print(p) 
} 

Hinweis das Argument environment = environment() innerhalb des ggplot() Befehl. Es sollte jetzt funktionieren.