Modifier la taille du texte dans la légende en fonction de la longueur de la légende de vecteur dans le graphique

Je dois dessiner un 20 parcelles et horizontalement à l'endroit d'une des légendes dans chacune des parcelles.

J'ai donné la commande suivante pour la première parcelle:

plot(x=1:4,y=1:4)
legend("bottom",legend = c("a","b","c","d"),horiz=TRUE,text.font=2,cex=0.64)

ensuite, pour la deuxième intrigue, j'ai essayé : 

plot(x=1:2,y=1:2)
legend("bottom",legend = c("a","b"),horiz=TRUE,text.font=2,cex=0.64)

Mais en raison de la taille de caractère de vecteur passé à la légende argument sont différents-je obtenir la taille de la légende différente.

Depuis que je suis à la parcelle ainsi beaucoup de différentes parcelles ayant différentes tailles de légendes,je voudrais le faire de manière automatisée.

Est-il un moyen de faire ce qui peut fixer la taille de la légende dans toutes les parcelles de l'adapter pour le graphique de la taille?

  • Votre question n'est pas claire. Voulez-vous la taille de la boîte de la légende à être constant, et sans doute ensuite réduire la taille du texte de sorte que la N valeurs dans votre texte de la légende s'adapter à l'intérieur de cette zone? Si oui, peut-être passer une variable en tant que mylegend <- c("a","b","c");mycex<-5/length(mylegend); legend(blahblah,legend=mylegend,cex=mycex)
InformationsquelleAutor user1021713 | 2012-10-08
  1. 4

    par(cex=.64) au début devrait suffire

    op <- par(cex=.64)  # this fix the legend size for all plots
plot(x=1:4,y=1:4)
legend("bottom",legend = c("a","b","c","d"),horiz=TRUE,text.font=2) # no need to set cex anymore
plot(x=1:2,y=1:2)
legend("bottom",legend = c("a","b"),horiz=TRUE,text.font=2)
par(op) # At end of plotting, reset to previous settings
    InformationsquelleAutor Jilber Urbina