Grafiken und Statistik in R

3.2 Diagramme 3 Grafik
64
# Bsp.: Beschriftung - plot.depth(...) (Anhang S. 189)
plot.new() # alten Plot löschen
par(las = 1) # Ausrichtung Achsenbeschriftung
plot.depth(test,
colnames = c(T,T,F,T,F,F,T,T), # T - TRUE, F - FALSE
xlabel = list("Anzahl", "%",
expression(mg%.%l^-1), # mg · l −1 ; Ausdrücke s. auf Seite 44
expression(sum(Arten)), # Summenzeichen
expression(paste("%-",O[2])), # % − O2
expression(CO[3]^paste(2," -")), # CO 2−
3
"Anzahl",""
),
subtitle = list("","","","","","","",
expression(over(Anzahl[x],Anzahl[y]) ) # Bruch: Anzahlx / Anzahly
)
)
# falls Titel falsch gezeichnet: Grafikfenster schließen und
# nochmal alles neu zeichnen/bzw kopieren
title("Zufallsdaten eines\nSedimentkernes", ylab = "Tiefe m")
# alternativ Titel y-Achsenbeschriftung mit Maus platzieren
par(xpd=TRUE) -> original # auch außerhalb der Grafik zeichnen
# Text y-Achse mit Maus platzieren mit locator()
locator(1) -> wo # mit Maus setzen
text(wo$x, wo$y, "Tiefe m", srt=90) # srt=90 Grad drehen
# mtext("Tiefe m", side=2, line=2) # alternativ eventuell line=2 2-Zeilen weg vom Rand
# Text Titel mit Maus platzieren
locator(1) -> wo # mit Maus setzen
text(wo$x, wo$y, "Zufallsdaten eines \nSedimentkernes", font=2 ) # font=2 fett
# Text kursiv, unterstrichen, ...
locator(1) -> wo # Punkt mit Maus wählen
text(wo$x, wo$y, # Koordinaten
labels= # hier der eigentliche Text
expression( # Schriftvarianten
Überschrift ~ bold(fett) ~
italic(kursiv) ~
underline(unterstrichen) ~
bolditalic(fettkursiv)
),
cex=1.5 # Schriftvergrößerung
)
text(wo$x,wo$y-diff(par()$usr[3:4])/10 , # Koordinaten y minus 10-tel Grafikregion; Info:
"Überschrift ~ bold(fett) ~ italic(kursiv) ~ underline(unterstrichen) ~ bolditalic(fettkursiv)",
cex=0.8 # Verkleinerung 80%
)
par(original) # Grafikeinstellungen für xpd wieder zurück
� Die Spaltenbeschriftung kann auch „manuell“ mit der Maus vorgenommen werden: mit Option locator=TRUE und dann linke untere
Ecke = Mauspunkt