R: erstellen von Vektoren des lateinischen/griechischen Ausdruck für plot-Titel, Achsenbeschriftungen oder Legenden

Ich würde gerne Zusammenführen von Vektoren des lateinischen und griechischen text zu generieren plot-Titel, Achsenbeschriftungen, Legende-Einträge, etc. Ich habe ein triviales Beispiel unten. Ich kann nicht herausfinden, wie machen die griechischen Buchstaben in Ihrer ursprünglichen form. Ich habe versucht, verschiedene Kombinationen von expression, parse, und apply zu den paste Befehl, aber ich habe nicht in der Lage zu Vektorisieren Sie den code direkt erzeugt, gemischt Lateinisch/griechischen text für den Fall von einem einzigen Ausdruck (z.B. expression("A ("*alpha*")") geeignet ist, im Fall von einem einzigen-Ausdruck).

data<-matrix(seq(20),nrow=5,ncol=4,byrow=TRUE)
colnames(data)<-c("A","B","C","D")
greek<-c(" (alpha)"," (beta)"," (gamma)"," (delta)")
matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),apply(matrix(paste(colnames(data),greek,sep=""),nrow=4,ncol=1),1,expression))

Könnten Sie mir bitte helfen mit der apply() - Anweisung innerhalb der legend() Aussage? Es erfordert einige änderungen, um die gewünschte Ausgabe (d.h., A (α), B(β), C(γ), D(δ)). Vielen Dank im Voraus.

InformationsquelleAutor user001 | 2012-11-01
  1. 8

    Hier ist eine alternative, die verhindert, dass parse() und arbeitet mit dem Beispiel erwähnt in Ihrem ersten Kommentar an @mnel ' s nette Antwort:

    greek <- c("alpha", "beta", "gamma", "delta")
cnames <- paste(LETTERS[1:4], letters[1:4])

legend_expressions <- 
sapply(1:4, function(i) {
    as.expression(substitute(A (B), 
                  list(A = as.name(cnames[i]), B = as.name(greek[i]))))
})

matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions)

    R: erstellen von Vektoren des lateinischen/griechischen Ausdruck für plot-Titel, Achsenbeschriftungen oder Legenden

    • Danke, Josh. Ihre Lösung ist sehr robust für verschiedene Eingänge. Können Sie erklären, warum A (B), A*B, und A~B Arbeit in der substitute - Anweisung, in der Erwägung, dass A B nicht? Könnte dir auch einen Kommentar für den neuen Benutzer, warum die as. syntax ist erforderlich? Ich habe gelesen, dass substitute gibt eine ungewichtete Ausdruck, so fungiert auf der Ausgabe von substitute mit as.expression Sinn macht. Was as.name?
    • Wie Sie wahrscheinlich wissen, diesem Abschnitt der "R Language Definition" ist ein guter Ausgangspunkt für die sich über R die Sprache der Elemente und wie Sie zu manipulieren. substitute() nehmen kann als erstes argument jedes syntaktisch gültige Anweisung. A B ist nicht "erlaubt", weil es syntaktisch gültig ist. (Können Sie denken, dass jeder R-Anweisung eingegeben auf der Befehlszeile wurde, die form? Ich dachte nicht!).
    • nicht allgemein kehren Sie Objekte der Klasse "expression". (Siehe "Wert" Abschnitt ?substitute, und spielen, um mit class(substitute()) zu sehen, was ich meine: class(substitute(x)); class(substitute(x(y))); class(substitute({x; y})); class(substitute(expression(x))) etc.) Ich benutze as.expression() zu zwingen, was gibt es einen Ausdruck Objekt. Ausdrücke sind eine Art von Vektor, so sapply() einfach verkettet die mehrere Länge-1-Ausdrücken zu einer einzigen Länge-4 expression vector. Sehen ?as.name kennen zu lernen as.name(). Hoffe, das hilft!
    • Danke für die zusätzlichen Erläuterungen. Ich schließlich beschlossen, zu wählen Sie Ihre Antwort, denn es war zuletzt empfindlich auf änderungen im format der Eingabe (z.B. hinzufügen von Leerzeichen in strings).
    InformationsquelleAutor Josh O'Brien
  2. 3

    Nicht verwenden apply einen Vektor erstellen von Ausdrücken.

    Stattdessen parse(text = ...).

    .expressions <- paste(colnames(data),greek,sep="")
legend_expressions <-parse(text = .expressions)

matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions)

    R: erstellen von Vektoren des lateinischen/griechischen Ausdruck für plot-Titel, Achsenbeschriftungen oder Legenden

    Wenn ~ innerhalb der Ausdrücke. Angesichts Ihrer aktuellen workflow, so scheint es am einfachsten zu ersetzen sep = '' mit sep = '~' im Aufruf paste

    .expressions <- paste(colnames(data),greek,sep="~")
legend_expressions <-parse(text = .expressions)

matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions)

    R: erstellen von Vektoren des lateinischen/griechischen Ausdruck für plot-Titel, Achsenbeschriftungen oder Legenden

    Es könnte sogar sein, klarer zu verwenden sprintf bilden die Zeichenketten, die zu Ihrem Ausdruck ein Vektor.

    Wenn Sie möchten, enthalten Zeichenketten, die Leerzeichen enthalten, müssen Sie wickeln Sie diese Zeichenfolgen in Anführungszeichen in der Zeichenfolge. Zum Beispiel.

    greek <- c("alpha", "beta", "gamma", "delta")
other_stuff <- c('hello world','again this','and again','hello')

.expressions <- mapply(sprintf, colnames(data), other_stuff, greek, 
                       MoreArgs = list(fmt = '"%s %s"~(%s)'))

.expressions  
##                           A                           B                           C                           D 
## "\"A hello world\"~(alpha)"   "\"B again this\"~(beta)"   "\"C and again\"~(gamma)"       "\"D hello\"~(delta)" 

 legend_expressions <-parse(text = .expressions)

matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions)

    R: erstellen von Vektoren des lateinischen/griechischen Ausdruck für plot-Titel, Achsenbeschriftungen oder Legenden

    • Vielen Dank für Ihre sehr hilfreiche Lösung. Könnten Sie mir sagen, wie Räume integriert werden können, die in der Etiketten, ohne sich explizit mit ~ Zeichen? Zum Beispiel, die Neudefinition colnames(data) zu c("A~a","B~b","C~c","D~d") akzeptabel ist, während die Neudefinition zu c("A a","B b","C c","D d") ist nicht (diese definition gibt einen unexpected symbol Fehler beim ausführen der parse - Anweisung). Vielleicht, wenn ich nicht will das tilde-Zeichen in der Spalte Namen, sollte ich die Verwendung eines string-substitution-Funktion ersetzt alle Leerzeichen mit Tilden vor der parse Aussage?
    • Danke @mnel. Ich möchte in der Lage sein, um Leerzeichen im colnames (z.B., "Eine" statt "Ein"). Jedoch, die parse - Anweisung schlägt fehl, wenn colnames ein Leerzeichen enthält. Wenn der Platz ersetzt mit einer tilde (z.B., "A~a" statt "A"), dann parse - Anweisung schlägt nicht mehr fehl. Mit ~ als sep im paste funktioniert immer noch nicht für eine colname mit einem Raum wie Ein "a".
    • colnames ohne Leerzeichen sind nicht syntatic und so würde ich nicht eine gute Idee, zu versuchen und setzen diese als colnames für Ihre matrix oder data.frame. Ich denke, dass meine mapply(sprintf,...) Lösung wäre am einfachsten zu implementieren, diese mit.
    • Der trick, um Sie für die Arbeit mit expressions ist, wickeln Sie Sie in Anführungszeichen innerhalb der Zeichenfolge. Dies ist jetzt umgesetzt
    • Ah, einschließlich der Anführungszeichen in den string vor der Einreichung zu analysieren -- tolle Idee. Ich habe einen anderen gefunden-Falten: was ist, wenn ich will eine von Etiketten Mangels einer griechischen Buchstaben? Ändern greek zu c("", "beta", "gamma", "delta") bewirkt, dass der code wieder zu Versagen. Wissen Sie, wie Sie dieses Problem lösen?
    • In diesem Fall müssten Sie ersetzen Sie in der Zeichenfolge. so etwas wie gsub(x= .expressions,'~\\(\\)', '')

    InformationsquelleAutor mnel
Schreibe einen Kommentar