Grafiken und Statistik in R

3.1 Einstellungen Zusätze 3 Grafik
text(14, n[row(as.matrix(n)),1], paste("n=", n[row(as.matrix(n)),2]), col=ifelse(
n[row(as.matrix(n)),2]>=200, "black", "gray"))
� Im Beispiel enthält die Spalte 2 von n die entsprechenden Daten, n[,] gibt an n[Reihe , Spalte]; n[row(as.matrix(n)),2] macht
eine Matrix aus den Daten, um die entsprechende richtige Zeile anzusprechen. Im Beispiel wird der Text grau, wenn die Daten kleiner
200 sind ansonsten ist der Text schwarz. Dies Beispiel läßt sich auch für Datenpunkte o.ä. anwenden
# Textplot – textplot(...) Paket gplots
data(eurodist) # Datensatz Europäischer Städte
?eurodist # Hilfe dazu anzeigen
textplot( capture.output(eurodist)) # Text als Plot
textplot(object, halign="center", valign="center", cex, ...)
� objekt kann z.B. textplot(version) sein oder die Ausgabe der Teststatistik, cex gibt Skalierung an
# mit kursivem Text
data(iris) # Schwertlilien-Datensatz
?iris # Hilfe dazu anzeigen lassen
reg original # zum Zeichnen außerhalb der Diagrammfläche: xpd ="expandieren"
locator(1) -> wo # Punkt mit Maus setzen
text(wo$x,wo$y ,
substitute(Regression~der~Blatt~Laenge~von~italic(Iris)-Daten))
par(original) # Zeichenfläche wieder wie Voreinstellung
?plotmath # weitere Beispiele für Formatierungen s
� Es ist wohl etwas kompliziert kursiven Text einzeln auszugeben. Dies ist +/- eine Hilfskonstruktion, denn Zeilenumbruch mit \n
geht nicht. Mit par(xpd=TRUE) kann man Text auch außerhalb zeichnen, was sonst nicht geht. Verbunden mit locator(...) kann man
den Text mit der Maus platzieren: man muß hier aber 2x drücken: einmal für den x-Wert und den y-Wert
„Randtext“ läßt sich mit mtext("Text" , side=3) um das Diagramm zeichnen, dabei bedeutet die Option side:
1=bottom, 2=left, 3=top, 4=right. Die Option line gibt die relativen Zeileneinheiten weg vom Rand an:
plot(1:12, xlab="", ylab="") # keine Achsenbeschriftung
mtext("2 Zeilen weg vom Rand: bottom=1",1, line=2)
mtext("-1 Zeile weg vom Rand: left=2", 2, line=-1)
mtext("0 Zeilen weg vom Rand: top=3", 3, line=0)
mtext("1 Zeile weg vom Rand: right=4", 4, line=1)
mtext() läßt leider keine Drehung zu. Hierzu s. nachfolgendes Beispiel
�
Text/Beschriftung (Teilstriche) rotieren geht mit ein paar Tricks, daß man den Text separat und gedreht
durch die Funktion text(x, y, "text") auf der vorherigen Seite.
# Rand vergrößern c( bottom, left, top, right)
par(mar = c(7, 4, 4, 2) + 0.1) -> original
# Grafik ohne x-Achsen Beschriftung
plot(1 : 8, xaxt = "n", xlab = "") # "n" - nothing
# x - Achse zeichnen mit Hauptintervallen
axis(1, labels = FALSE)
# Teilstriche mit Anz. an Teilintervallen falls Paket Hmisc da
if(require(Hmisc)) minor.tick(ny=2, nx=0)
# Text erzeugen
labels