R Legende-Problem, die Symbole der Punkte maskiert sind durch Linien

Gibt es eine Möglichkeit, zeichnen Sie die Linien so, dass Sie anfangen würde, auf der Seite der Punkte, oder zulassen, dass die Symbole werden im Vordergrund stehen?

War meine Lösung, um die Symbole größer und mehr sichtbar.

Edit 1: es ist für den plot {graphics} der R-Programm.

Edit 2: der code pro auf vielfachen Wunsch.

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: Dieses Problem ist für den plot(Art='b'), aber irgendwie nicht für Legende.

Vielen Dank für das Lesen!

Nicht gehen, um nach unten zu Stimmen, aber Sie müssen angeben, welche Grafik-system Sie verwenden... mindestens!
Müssen Daten und code. Dieses ist ein coding-website für pete ' s Willen.
Oder Sie stellen die Linien dünner werden anstatt die Symbole größer.

InformationsquelleAutor Adam SO | 2012-03-28

1

Gehen mit dem Vorschlag von @JeffAllen, hier ist ein Weg, um zu bekommen, was ich denke, möchten Sie vielleicht. Es erfordert eine änderung der legend() - Funktion zum zurückgeben der position der Punkte (diese sind gegeben durch x1 und y1 im 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)))
)
```
Ein Grundstück zu machen:
```
plot(-100:100, -100:100, type = "b")
```
Während dem zeichnen die Legende, ziehen weiße Kreise (pch = 21 mit pt.bg = 'white') über die Zeilen und weisen Sie die Werte unsichtbar zurückgegeben legend2() auf ein Objekt. Beachten Sie auch die änderungen 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 Zeichen, die Sie verwenden möchten, in der Legende mit points() Angabe der x-und y-Werte aus dem Objekt myLegend.
```
points(myLegend$points$x, myLegend$points$y, pch = c('s','c','u'), cex = 1.5)
```
Werden und dies sollte Sie etwas erhalten wie:
- Wenn ich schon eine neue Legende Funktion wäre es nicht einfacher zu Fragen Legende zu setzen, die weißen Kreise den ersten und dann ziehen die vorgesehenen Symbole. wie in ändern [46] und zeichnen Sie die weißen Kreise vor den Aufruf für die Funktion points2 p.s. Wow, vielen Dank! Das ist wie eine Operation.
- Um Ihre Frage zu beantworten und halten Sie die op-Analogie wäre dies ein minimal-invasives Verfahren. Wenn Sie möchten, führen Sie eine umfangreichere operation und berücksichtigen Ihren Vorschlag oben (und vielleicht Verpackung), ich denke, das wäre toll!
InformationsquelleAutor BenBarnes
2

Das einzige, was ich mit oben kommen kann ist manuell finagle die dash-Längen, bis Sie am Ende der Suche die Art und Weise, die Sie wünschen. Zum Beispiel diese:
```
> plot(1,1)
> legend(c("A", "B"), col = 1:2, x = 1, y = .8, lty="99", pch=1:2)
```
erzeugt das Bild unten.

Den lty parameter ermöglicht Ihnen die Angabe der Längen von Linien und Strichen, die als hex-Zeichen. In diesem Fall ist es zu sagen, um eine Linie der Länge 9 dann einen Raum schaffen, der der Länge 9 dann wiederholen. Es sieht aus wie 9, ist über die best-fit-Raum um einen normalen pch-symbol.

Beachten Sie, dass Sie würde wahrscheinlich anpassen müssen diese, abhängig von der Größe des Bildes, symbol, etc. Mein Rat letztlich wäre der export das Bild von R und Tippen Sie das Bild an Ihre Bedürfnisse im Grafik-editing-software.
- Wenn Sie wirklich wollten, um den Charakter auf den Vordergrund in einer reproduzierbaren Art und Weise, würden Sie wahrscheinlich benötigen, um plot ein weißes polygon hinter dem symbol über die Linie. Um dies zu tun, würden Sie sich wahrscheinlich am besten aus, customizing der legend() - Funktion, um es Ihren Bedürfnissen gerecht. Es ist nicht eine kompilierte oder built-in-Funktion, so können Sie sich die Quelle nur durch Eingabe legend und zu kopieren, dass der code in einem editor.
- Das ist eine wirklich Coole Abhilfe. Nicht sehr portabel oder reproduzierbar (z.B., hängt davon ab, lwd), aber eine einfache Kerbe für einen einzelnen Legende!
InformationsquelleAutor Jeff Allen
1

Können Sie auch die gefüllten Punkte angeboten, die von R (pch=21:25) und geben Sie die Füllfarbe mit dem pc.bg übergeben bekommt, um die points Anruf beim erstellen einer Legende.
```
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 folgenden:

InformationsquelleAutor Jeff Allen

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.