Manuelles hinzufügen von Legende Werte in der Packungsbeilage

Ich bin Plotten von Ergebnissen aus verschiedenen britischen Wahlen im Merkblatt und lief in ein bisschen ein problem mit legends.

Für die verschiedenen Ergebnisse bei der Bundestagswahl bin ich mit der gleichen Farbe-Funktion mit unterschiedlichen Domänen, für die verschiedenen Daten (gelb-> VIOLETTE Skala im Bild)

Diese erstellt (für die ersten zwei als Beispiele):

labvotescols <- colorNumeric(
  c("Yellow", "Purple"),
  domain = Westminster$LabourVotes,
  ukipvotescols <- colorNumeric(
    c("Yellow", "Purple"),
    domain = Westminster$UKIPVotes,

und so weiter...

Derzeit habe ich die Legende 

map = map %>% addLegend("bottomright", pal = ukipvotescols, values = Westminster$UKIPVotes,
                    title = "(e.g.) % voting UKIP at GE2015",
                    opacity = 1)

als ein Beispiel dafür, aber wirklich ich möchte, um loszuwerden, alle die Werte, auf die Legende und habe einfach "weniger" am gelben Ende und "mehr" in der lila Ende. Ist das möglich?
Manuelles hinzufügen von Legende Werte in der Packungsbeilage

Habe ich versucht zu spielen und dann zu googeln, aber ohne Erfolg.

  • Ich habe das Gefühl, dass da die Pausen/labels etc berechnet werden, indem addLegend für einen Farbverlauf, wird es nicht zulassen, setzen Sie einen string in es.
  • Ich gab eine ähnliche Antwort hier und hier . Vielleicht etwas, was Sie können, ziehen Sie gemeinsam aus diesen Lösungen.
InformationsquelleAutor Robert Hickman | 2016-07-02
  1. 5

    Könnten Sie ändern es von einem gelb->VIOLETTE Skala und stellen Sie Ihre eigene Skala:

    map = map %>% addLegend("bottomright", 
  colors =c("#FFC125",  "#FFC125", "#8A4117", "#7D0552", "#571B7E"),
  labels= c("less", "","","","", "more"),
  title= "(e.g.) % voting UKIP at GE2015"
  opacity = 1)

    Wenn Sie die richtigen Farben, dann sollte es ähnlich Aussehen. Nicht die Antwort, die Sie gesucht haben, aber es ist ein guter workaround. Du bist die Ausgabe würde wie folgt Aussehen:

    Manuelles hinzufügen von Legende Werte in der Packungsbeilage

    Verbringen mehr Zeit mit der Suche für eine bessere Farb-übergang und man konnte sich eine Legende, die sieht ähnlich aus wie das gelb-lila Farbe Palette haben Sie bis oben.

    • mypal <- colorNumeric(c("Yellow", "Purple"), domain = df$values, na.color = "Black") für die palette , und map = map %>% addLegend("bottomright", pal = mypal, values = df$values, title = "quant data title", opacity = 1, labFormat = function(type, cuts, p) { n = length(cuts) cuts[n] = "more" for (i in 2:(n-1)){cuts[i] = ""} cuts[1] = "less" paste0(cuts[-n], cuts[-1])}) für die Legende, war, für mich zu arbeiten. Ich überlasse es hier für den Fall, jemand kommt auf der Suche. Ich bin sicher, es gibt einige problem mit ihm, aber so weit seine wurde zu halten.
    • Friel, Gute Antwort, OP, sollte akzeptieren, und schließen Sie diese Frage aus.
    InformationsquelleAutor John Friel
Schreibe einen Kommentar