Übergeben Sie Variablen-Namen zu zeichnen-Funktion Titel

Ich Frage mich, wenn jemand könnte mir helfen, verwenden Sie den Namen einer Variablen innerhalb einer Funktion.
Ich habe eine dot-plot, die möglichen Variablen und erzeugt dann ein bitmap, aber ich kann Sie nicht R übergeben den Namen der Variablen, um die plot Titel.

Beispiel Daten

id<-c(1,2,3)
blood<-c(1,2,10)
weight<-c(1,2,13)


mydata<-as.data.frame(cbind(id,blood,weight))
mydata$blood

#######SORTED DOT PLOT####


Dplotter<-function (id,x,Title=""){
if (is.null(Title)) {Title=""} else {Title=Title} 

DIR<-paste("C:/temp/WholePlots/New/",Title,".bmp",sep="")

D<-as.data.frame(cbind(id,x))
x1<-as.data.frame(D[order(x),])

bmp(DIR)
dotchart(x1$x,labels=id,main=Title,pch=16)
dev.off()
}


###############
Dplotter(mydata$id,mydata$blood,"Blood")

Dplotter(mydata$id,mydata$weight,"Weight")

In der zweiten Zeile der Funktion ist, würde ich gerne pass auf die variable
Namen, so etwas wie
```
`if (is.null(Title)) {Title=varname(x)} else {Title=Title}`
```
so, dass ich nicht haben, um "Blut" in der Funktion Titel-Feld
(z.B. Dplotter(mydata$id,mydata$Blut)

Grundsätzlich, wie stellt man das einfügen in den Namen der Variablen in einer Funktion? Es
wäre noch besser, wenn man nehmen könnte, aus der dataset-name aus dem
Titel (ohne anbringen des dataset, die ich habe gesagt, schlecht ist
Praxis), so dass anstatt mydata$blood, die Sie gerade bekommen
"blood" im Titel.

Habe ich konnte nicht finden eine einfache Lösung zum einfügen von Variablen-Namen in der
eine Funktion ist. Wie Sie sich vorstellen können, setzen Sie den Variablennamen in einer
paste() Funktion gibt die Werte der Variablen (so, dass die
plot-Titel ist mit Werten gefüllt, sondern der name der Variablen).
Ich würde auch gerne automatisieren, um die Funktion noch weiter, so dass ich
setzen Sie einfach den Datensatz und die ID,und dann haben die Funktion wiederholt
für jede variable im Datensatz. Offensichtlich verlangt dies die Lösung
Frage 1 zunächst anders beiden Titel und Dateinamen begegnen
Probleme.

InformationsquelleAutor Marco M | 2012-03-12

function r variable-names

13

Die Allgemeine Antwort ist deparse(substitute(x)). E. g.
```
fooPlot <- function(x, main, ...) {
    if(missing(main))
        main <- deparse(substitute(x))
    plot(x, main = main, ...)
}
```
Hier ist es im Einsatz:
```
set.seed(42)
dat <- data.frame(x = rnorm(1:10), y = rnorm(1:10))
fooPlot(dat, col = "red")
```
Produziert:

In deinem Beispiel aber, das wird nicht funktionieren, weil Sie nicht wollen dat$x als der Titel, Sie wollen nur x. Wir könnten noch ein wenig mehr manipulation jedoch:
```
fooPlot <- function(x, main, ...) {
    if(missing(main)) {
        main <- deparse(substitute(x))
        if(grepl("\\$", main)) {
            main <- strsplit(main, "\\$")[[1]][2]
        }
    }
    plot(x, main = main, ...)
}
```
Welche für fooPlot(dat$x, col = "red") gibt:

Hinweis: dieser code macht einige Annahmen, dass main ist nicht ein Vektor sein, dass es immer nur eine $ in das übergebene Objekt Grundstück (d.h. Sie könnte nicht verwenden Sie eine verschachtelte Liste zum Beispiel mit dem obigen code).
- Ich danke Ihnen sehr. Es funktioniert wirklich gut. Hat jemand irgendwelche Vorschläge, wie 2 (Frage 2,siehe oben). Zum Beispiel, make foo Handlung auszuführen, die innerhalb einer anderen Funktion "PlotALL" die passess alle Variablen des Datensatzes eins foo plot? Dies würde mir erlauben, zu schreiben ## PlotAll (id,mydata) und bekommen alle Diagramme ausgedruckt werden. Vielen Dank
InformationsquelleAutor Gavin Simpson
1

Müssen Sie zum abrufen eines Satzes von Zeichenfolgen, die Namen der Variablen, und verwenden Sie für den Titel Ihrer Grundstücke und Dateinamen als gut.

Ich werde mit der longley Datensatz zur Veranschaulichung der trick.
```
data(longley, package="datasets")

#return a vector with variable names
colnames(longley)
names(longley) #equivalent

#get the name of a specific variable (column number):
names(longley)[1]
```
Zeichnen jede variable, zwei Sätze von Zeichenfolgen: Variablen-und Dateinamen:
```
var.names=names(longley)
file.names=paste(var.names, "bmp", sep=".") 
#with an extra step to prefix a directory to those filenames

for (i in 1:ncol(longley) ) {

    bmp(file=file.names[i])
    plot(longley[[i]], main=var.names[i], ylab="")
    dev.off()
}
```
ylab="", da sonst es gibt eine dumme "longley[[i]]" als y-label, und wenn ich mit var.name[i] als ylab, es wäre überflüssig.
- Liebe p_barill, das ist genau das was ich brauchte. Ich danke Ihnen so sehr für Ihre Hilfe.
InformationsquelleAutor p_barill

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.