Verringern des Abstands zwischen den Elementen der Legende in R?

Ich versuche, choropleth()mit dem GISToolsPaket die richtige Karte in R zu erstellen. Ich verwende choro.legend(), um meine Legende anzuzeigen. Ich kann jedoch keine korrekte Legendenplatzierung erstellen, UND / ODER ich verstehe die Rolle von fmtParametern in meiner choro.legend()Funktion nicht. Es scheint mir, dass fmtder Abstand zwischen meinen Legendenfarben und der Beschreibung verringert werden kann.

Ich fand choro.legend Hilfeseite , dass die Staaten fmtsind „für Werte C - Stil - Format in über choropleth Klassengrenzen angegeben“ .

Das sollte also nur mit meinen Klassenwerten funktionieren, nicht mit dem Abstand zwischen den Legendenelementen selbst?

ODER was ist die vom Menschen verständliche Bedeutung davon?

Wie kann ich den Abstand zwischen meinen choro.legend()Gegenständen verringern ?

choropleth(my.shp, nc.lI[,1], shading = income.shade)
choro.legend(-12919698, 5314317,income.shade,title='My title',cex=0.8, bty = "n", fmt = "%0.1f")

fmthat nichts mit dem Abstand von Legendenelementen zu tun. Eine ausführliche Beschreibung finden fmtSie unter Verwenden von Zeichenfolgenformatierungsbefehlen im C-Stil . Fügen Sie einfach das folgende Codefragment in Ihre RKonsole ein, um die Unterschiede zu sehen (pi ~ 3.14):

sprintf("%f", pi)
sprintf("%.3f", pi)
sprintf("%1.0f", pi)
sprintf("%5.1f", pi)
sprintf("%05.1f", pi)
sprintf("%+f", pi)
sprintf("% f", pi)
sprintf("%-10f", pi) # left justified
sprintf("%e", pi)
sprintf("%E", pi)
sprintf("%g", pi)
sprintf("%g",   1e6 * pi) # -> exponential
sprintf("%.9g", 1e6 * pi) # -> "fixed"
sprintf("%G", 1e-6 * pi)

choro.legend()Anrufe legend()intern. Um den horizontalen Abstand zwischen Legendenelementen zu verringern, sollten Sie den text.widthParameter der legend()Funktion ändern . Leider choro.legendgibt es keinen Parameter zum text.widthexternen Setzen, sondern zum internen Berechnen. Ich habe dem space_reductionParameter einen Parameter hinzugefügt choro.legendund die ursprüngliche Funktion wie folgt leicht geändert:

choro.legend <- function (px, py, sh, under = "under", over = "over", between = "to", 
          fmt = "%g", cex = 1, space_reduction = 0, ...) 
{
  x = sh$breaks
  lx = length(x)
  if (lx < 3) 
    stop("break vector too short")
  res = character(lx + 1)
  res[1] = paste(under, sprintf(fmt, x[1]))
  for (i in 1:(lx - 1)) res[i + 1] <- paste(sprintf(fmt, x[i]), 
                                            between, sprintf(fmt, x[i + 1]))
  res[lx + 1] <- paste(over, sprintf(fmt, x[lx]))
  maxwidth <- max(strwidth(res)) - space_reduction
  temp <- legend(x = px, y = py, legend = rep(" ", length(res)), 
                 fill = sh$cols, text.width = maxwidth, cex = cex, ...)
  text(temp$rect$left + temp$rect$w, temp$text$y, res, pos = 2, 
       cex = cex)
}

Speichern Sie dieses Snippet in einer R-Skriptdatei und sourcees. Ein reproduzierbares Code-Snippet würde wie folgt aussehen:

library(GISTools)

data(newhaven)
blocks

val <- blocks@data$POP1990
shade <- auto.shading(val)
choropleth(blocks, v= val, shade)
choro.legend(514000, 175000,shade,title='My Legend',cex=.8, bty = "n", fmt = "%0.0f",
             space_reduction=4000)

Verringern / erhöhen Sie den space_reductionParameter schrittweise , um das gewünschte Ergebnis zu erzielen.