Diminuer la distance entre les éléments de la légende dans R?

J'essaie de créer une choropleth()carte correcte dans R en utilisant le GISToolspackage. J'utilise choro.legend()pour afficher ma légende. Cependant, je ne peux pas créer de placement de légende correct, ET / OU Je ne comprends pas le rôle du fmtparamètre dans ma choro.legend()fonction. Il me semble que cela fmtpeut diminuer l'espace entre les couleurs et la description de ma légende.

J'ai trouvé page d'aide choro.legend que les États fmtest « format de style C pour les valeurs indiquées dans les limites ci - dessus de la classe choroplèthes » .

Donc, cela devrait simplement fonctionner avec les valeurs de mes classes, pas par la distance entre les éléments de légende lui-même?

OU quelle est la signification humaine compréhensible de cela?

Comment puis-je réduire la distance entre mes choro.legend()articles?

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")

fmtn'a rien à voir avec l'espacement des éléments de légende. Pour obtenir une description détaillée de fmts'il vous plaît voir Utiliser C-style String commandes de formatage . Collez simplement l'extrait de code suivant dans votre Rconsole pour voir les différences (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()appelle en legend()interne. Pour réduire l'espacement horizontal entre les éléments de légende, vous devez modifier le text.widthparamètre de la legend()fonction. Malheureusement, choro.legendne fournit pas de paramètre à définir en text.widthexterne, mais le calcule en interne. J'ai ajouté un space_reductionparamètre à la choro.legendet j'ai légèrement modifié la fonction d'origine comme suit:

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)
}

Enregistrez cet extrait dans un fichier de script R et sourcele. Un extrait de code reproductible serait comme suit:

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)

Diminuez / augmentez progressivement le space_reductionparamètre pour obtenir le résultat souhaité.