R Legende Problem, Symbole von Punkten werden durch Linien maskiert

Question

Gibt es eine Möglichkeit, die Linien so zu zeichnen, dass sie auf der Seite der Punkte beginnen würden, oder die Symbole im Vordergrund zulassen?

Meine Lösung war, die Symbole größer und sichtbarer zu machen.

Edit 1: es ist für die Grafik {Grafik} des R-Programms.

Edit 2: der Code pro beliebter Anfrage.

legend(2,.4,bty='n', c('sugar','citrus','none'), pch=c('s','c','u'), pt.bg='white',lty= c(1,2,3), lwd=1.5, title="Condition",pt.cex=c(1.5),cex=1.5) 

Edit 3: Dies ist für Plot (type = 'b') gelöst, aber irgendwie nicht für die Legende.

Danke fürs Lesen!

Answer 1

mit dem Vorschlag von @JeffAllen gehen, hier ist eine Art und Weise zu bekommen, was ich glaube, Sie wollen könnten. Es erfordert die Änderung der legend() Funktion, um die Position der Punkte (diese sind gegeben durch x1 und y1 in body(legend)[[46]]).

legend2 <- legend 
body(legend2)[[49]] <- quote(
    invisible(list(rect = list(w = w, h = h, left = left, top = top), 
    text = list(x = xt, y = yt), points = list(x = x1, y = y1))) 
) 

Machen Sie einen Plan:

plot(-100:100, -100:100, type = "b") 

Während die Legende zeichnen, weißen Kreise (pch = 21 mit pt.bg = 'white') über die Linien zeichnen, und die Werte unsichtbar zurück von legend2() zu einem Objekt zuweisen. Beachten Sie auch die Änderungen zu pt.lwd und pt.cex.

myLegend <- legend2(1, .8, bty = 'n', c('sugar','citrus','none'), pch = 21, 
    pt.bg = 'white', pt.lwd = 0, lty = c(1, 2, 3), lwd = 1.5, title = "Condition", 
    pt.cex = c(1.8), cex = 1.5) 

Schließlich ziehen Sie die angezeigten Zeichen in der Legende verwenden möchten points() verwenden, myLegend die x- und y-Werte aus dem Objekt zu liefern.

points(myLegend$points$x, myLegend$points$y, pch = c('s','c','u'), cex = 1.5) 

Und das sollten Sie wie etwas bekommen:

Answer 2

Das einzige, was ich mir vorstellen kann ist, die Dash-Längen manuell zu finalisieren, bis sie am Ende so aussehen, wie Sie es wollen. Zum Beispiel:

> plot(1,1) 
> legend(c("A", "B"), col = 1:2, x = 1, y = .8, lty="99", pch=1:2) 

erzeugt das Bild unten.

Mit dem Parameter lty können Sie die Länge von Linien und Bindestrichen als Hexadezimalzeichen angeben. In diesem Fall heißt es, eine Zeile mit der Länge 9 zu erstellen und dann ein Leerzeichen der Länge 9 zu erstellen und dann zu wiederholen. Es sieht so aus, als wäre 9 die beste Anpassung an den Raum um ein normales PCH-Symbol.

Beachten Sie, dass Sie dies wahrscheinlich abhängig von der Größe des Bildes, des Symbols usw. anpassen müssen. Mein Rat wäre letztendlich, das Bild aus R zu exportieren und das Bild nach Ihren Bedürfnissen in der Grafikbearbeitungssoftware zu bearbeiten .

Answer 3

Sie könnten auch die ausgefüllten Punkte von R angeboten verwenden (pch = 21: 25) und geben Sie die Füllfarbe pc.bg verwendet, die an den points Aufruf übergeben wird, wenn eine Legende zu schaffen.

plot(1,1) 
legend(c("A", "B"), col = 1:2, x = 1, y = .8, lty=1, pt.bg=1:2, pch=21:22) 

generiert die folgende: