R-FORUM.DE

[LoG91]

Hallo,

ich habe in R eine Linear Discriminant Analysis durchgeführt. Ich bin inzwischen ganz zufrieden mit meinem Plot (ggplot2),
allerdings möchte ich nun Pfeile/Vektoren in den Plot einfügen. Als Grundlage dienen mir die Koordinaten aus der Tabelle unter $scaling
LD1 LD2
HLTL -0.30678060 2.2409192
lLH -0.06598886 2.4485972
VS 1.07378567 -1.3781733
DSHDSA 23.54542714 -0.5174812
LLNL -1.54282988 -3.1488777
(links die Merkmale, LD1 wäre meine x-Koordinate, LD2 meine y-Koordinate)
mit der geom_segment - Funktion habe ich es immerhin geschafft Linien in gewünschter Richtung und Länge darzustellen. Das einzige was mir hier
noch fehlt, sind die Pfeilspitzen und idealerweise die Zuordnung der jeweiligen Merkmale zu den Pfeilen.
Hier einmal der Code für den Plot:

ggplot(LDdata, aes(x=X1, y=X2,xlab="LD1",ylab="LD2")) +
geom_point(aes(colour=Art, shape=Art, size=1.5)) +
theme_classic() +
geom_text(aes(label=X5),size=2, nudge_x = 0.1,hjust=0, vjust=0) +
geom_segment(aes(x = 0, y = 0, xend = -0.30678060, yend = 2.2409192, arrow = TRUE)) +
geom_segment(aes(x = 0, y = 0, xend = -0.06598886, yend = 2.4485972, arrow = TRUE)) +
geom_segment(aes(x = 0, y = 0, xend = -1.0866562, yend = 0.9169430, arrow = TRUE)) +
geom_segment(aes(x = 0, y = 0, xend = 4.4142739, yend = -2.49854225, arrow = TRUE)) +
geom_segment(aes(x = 0, y = 0, xend = 3.04849955, yend = 2.8046127, arrow = TRUE))

mit der Fehlermeldnung:
5: In geom_segment(aes(x = 0, y = 0, xend = 3.04849955, yend = 2.8046127, :
Ignoring unknown aesthetics: arrow

Im Anhang ist auch der bisherige Plot zu sehen.
Ich habe auch schon davon gelesen, dass es die Funktionen geom_arrow und geom_vector geben soll. Die sind bei mir jedoch nicht vorhanden.

Würde mich sehr über jede Hilfe freuen, da ich so kurz vorm Ziel bin und es ja eigentlich nicht so schwer sein sollte.

Vielen Dank schonmal,

Jonn