Ajuster l'espacement entre le texte, horizontal légende

text.width peut vous donner le contrôle sur la largeur de chaque colonne dans la légende, mais ce n'est pas simple. Fondamentalement, text.width est un vecteur qui sera multiplié par un autre vecteur qui est longue comme vecteur de la légende des chaînes de caractères. Les éléments de cette deuxième vecteur sont des nombres entiers de 0 à length(legend)-1. Voir la code pour legend() pour les détails sanglants. La chose importante est que vous pouvez penser de ce produit de text.width et le deuxième vecteur de, environ, les coordonnées x pour vos éléments de légende. Alors si vous connaissez les coordonnées x vous le souhaitez, vous pouvez calculer ce que doit être passé dans le text.width argument.

legtext <- c("AAPL", "Information Technology", 
             "Technology Hardware and Equipment", "S&P 500")
xcoords <- c(0, 10, 30, 60)
secondvector <- (1:length(legtext))-1
textwidths <- xcoords/secondvector # this works for all but the first element
textwidths[1] <- 0 # so replace element 1 with a finite number (any will do)

Et puis votre code final pourrait ressembler à quelque chose comme ça (sauf que nous ne savons pas l'original de votre traçage de données ou de paramètres):

plot(x=as.Date(c("1/1/13","3/1/13","5/1/13"), "%m/%d/%y"), y=1:3, ylim=c(0,3))

legend(x="bottomleft", bty = "n", x.intersp=0, xjust=0, yjust=0,
   legend=legtext, 
   col=c("black", "red", "blue3", "olivedrab3"), 
   lwd=2, cex = 0.5, xpd = TRUE, ncol = 4,
   text.width=textwidths)

Comme Andre Silva mentionné, les valeurs que vous voulez dans xcoords et textwidths dépendra de la taille actuelle de votre parcelle de terrain, la plage de valeurs spécifiée pour votre axe x, etc.

Aussi, secondvector ci-dessus seraient différentes si vous avez eu plus d'un élément par colonne. Par exemple, pour les deux colonnes de deux éléments de légende chacun, secondvector == c(0,0,1,1).

OriginalL'auteur pangia

Sur mon système (plate-forme: x86_64-w64-mingw32, R version: 3.4.1 (2017-06-30)) les solutions apportées jusqu'à présent par Andre Silva et pangja ne sont pas satisfaisants. Les deux solutions nécessitent la saisie de l'utilisateur et dépend de la taille de l'instrument. Depuis, je reçois jamais utilisé pour la text.width commande et a toujours eu pour ajuster les valeurs d'essai-erreur, j'ai écrit la fonction (f.horlegend). La fonction a les mêmes arguments que la fonction legend et est basé sur l'idée posté ici.

La fonction crée l'horizontale (une ligne) de la légende, qui peut être positionné par la commande connue à partir de la fonction legend, par exemple "bottomleft"

f.horlegend <- function(pos, legend, xoff = 0, yoff = 0, 
lty = 0, lwd = 1, ln.col = 1, seg.len = 0.04, 
pch = NA, pt.col = 1, pt.bg = NA, pt.cex = par("cex"), pt.lwd = lwd, 
text.cex = par("cex"), text.col = par("col"), text.font = NULL, text.vfont = NULL, 
bty = "o", bbord = "black", bbg = par("bg"), blty = par("lty"), blwd = par("lwd"), bdens = NULL, bbx.adj = 0, bby.adj = 0.75 
) {
### get original par values and re-set them at end of function
op <- par(no.readonly = TRUE)
on.exit(par(op))
### new par with dimension [0,1]
par(new=TRUE, xaxs="i", yaxs="i", xpd=TRUE)
plot.new()
### spacing between legend elements
d0 <- 0.01 * (1 + bbx.adj)
d1 <- 0.01
d2 <- 0.02
pch.len <- 0.008
ln.len <- seg.len/2
n.lgd <- length(legend)
txt.h <- strheight(legend[1], cex = text.cex, font = text.font, vfont = text.vfont) *(1 + bby.adj)
i.pch <- seq(1, 2*n.lgd, 2)
i.txt <- seq(2, 2*n.lgd, 2)
### determine x positions of legend elements
X <- c(d0 + pch.len, pch.len + d1, rep(strwidth(legend[-n.lgd])+d2+pch.len, each=2))
X[i.txt[-1]] <- pch.len+d1
### adjust symbol space if line is drawn
if (any(lty != 0)) {
lty <- rep(lty, n.lgd)[1:n.lgd]
ln.sep <- rep(ln.len - pch.len, n.lgd)[lty]
ln.sep[is.na(ln.sep)] <- 0
X <- X + rep(ln.sep, each=2)
lty[is.na(lty)] <- 0
} 
X <- cumsum(X)
### legend box coordinates
bstart <- 0
bend <- X[2*n.lgd]+strwidth(legend[n.lgd])+d0
### legend position
if (pos == "top" | pos == "bottom" | pos == "center") x_corr <- 0.5 - bend/2 +xoff
if (pos == "bottomright" | pos == "right" | pos == "topright") x_corr <- 1. - bend + xoff
if (pos == "bottomleft" | pos == "left" | pos == "topleft") x_corr <- 0 + xoff
if (pos == "bottomleft" | pos == "bottom" | pos == "bottomright") Y <- txt.h/2 + yoff
if (pos == "left" | pos == "center" | pos =="right") Y <- 0.5 + yoff
if (pos == "topleft" | pos == "top" | pos == "topright") Y <- 1  - txt.h/2 + yoff
Y <- rep(Y, n.lgd)
### draw legend box
if (bty != "n") rect(bstart+x_corr, Y-txt.h/2, x_corr+bend, Y+txt.h/2, border=bbord, col=bbg, lty=blty, lwd=blwd, density=bdens)
### draw legend symbols and text
segments(X[i.pch]+x_corr-ln.len, Y, X[i.pch]+x_corr+ln.len, Y, col = ln.col, lty = lty, lwd = lwd)
points(X[i.pch]+x_corr, Y, pch = pch, col = pt.col, bg = pt.bg, cex = pt.cex, lwd = pt.lwd)
text(X[i.txt]+x_corr, Y, legend, pos=4, offset=0, cex = text.cex, col = text.col, font = text.font, vfont = text.vfont)
}

Arguments

pos position de la légende (c("bottomleft", "bas", "bottomright", "gauche", "centre", "droite", "topleft", "haut", "haut"))

legend le texte de la légende

xoff réglage de la position dans la direction x. NB: la légende est tracée sur un terrain avec des limites = c(0,1)

yoff même que xoff mais en y-directin

lty Le type de ligne. Les types de ligne peut être spécifié comme un entier (0=vide, 1=solide (par défaut), 2=en pointillés, 3=en pointillés, 4=dotdash, 5=longdash, 6=twodash)

lwd La largeur de la ligne, un nombre positif, par défaut 1

ln.col La couleur de la ligne

seg.len La longueur de la ligne, à défaut, à 0,04

pch Un entier spécifiant le symbole.

pt.col Le symbole de la couleur.

pt.bg La couleur d'arrière-plan du symbole.

pt.cex facteur d'expansion pour le symbole

pt.lwd ligne de largeur de symbole

text.cex facteur d'expansion pour le texte

text.col couleur du texte

text.font de la police de texte

text.vfont voir vfont dans le texte-aider

bty le type de boîte à tirer autour de la légende. Les valeurs autorisées sont "o" (par défaut) et "n"

bbord la couleur de la case de la légende de la frontière

bbg couleur d'arrière-plan

blty style de bordure

blwd frontière de la largeur de ligne

bdens la densité de lignes, voir le segment de l'aide

bbx.adj valeur relative pour augmenter l'espace entre le texte et la boîte horizontale de la ligne de

bby.adj même que bbx.adj mais pour bdc vertical de la ligne de

Malheureusement, je n'ai pas de temps pour créer un package pour le moment. Mais n'hésitez pas à utiliser la fonction. Des commentaires et des idées pour améliorer les fonctions sont les bienvenus.

Quelques exemples

plot(1:100, rnorm(100))
lgd.text <- c("12", "12")
sapply(c("bottomleft", "bottom", "bottomright", "left", "center", "right", "topleft", "top", "topright"), function(x) f.horlegend(x, lgd.text, pch=16, lty=c(NA, 1), bbg="orange"))
plot(1:100, rnorm(100))
lgd.text <- c("12", "132", "12345")
f.horlegend("topleft", lgd.text, pch=NA)
f.horlegend("top", lgd.text, pch=NA, bby.adj=1.5, bbord="red")
f.horlegend("left", lgd.text, xoff=0.2, pch=1, bby.adj=0, bbord="red", bbg="lightgreen")
f.horlegend("left", lgd.text, xoff=0.2, yoff=-0.05, pch=c(NA, 1, 6), lty=1, bbx.adj=2, bby.adj=0, bbord="red", bbg="lightgreen")
f.horlegend("topright", lgd.text, yoff=0.1, pch=c(1,2,NA), lty=c(NA, NA, 2), bbord="red", blty=2, blwd=2)
lgd.text <- c("12", "123456", "12345", "123")
f.horlegend("bottom", lgd.text, yoff=0.1, pch=c(1,2,NA), lty=c(NA, 1, 2), text.font=2)
f.horlegend("bottom", lgd.text, pch=c(1,2,NA), lty=c(NA, 1, 2), text.font=c(1,2,3))
plot(seq(as.POSIXct("2017-08-30"), as.POSIXct("2017-09-30"), by="weeks"), rnorm(5), type="l")
f.horlegend("topleft", "random values", lty=1)

OriginalL'auteur RFelber