R-intrigue centrée légende à l'extérieur des marges de plusieurs parcelles

Je veux tracer une centrée sur la légende en dehors de la zone de traçage dans un appareil dont plusieurs parcelles. Il y a eu beaucoup de questions (avec de légères variations) a demandé, dans la sur la modification de la position de la légende dans un R de la parcelle.

Par exemple:

1) R - Commune titre et une légende pour les combinés parcelles

2) Commune de la légende de plusieurs parcelles dans la R

3) Tracer une légende à l'extérieur de la zone de traçage dans les graphismes de base?

etc.

Maintenant ce que j'ai compris à partir des questions posées ci-dessus, c'est que j'ai mis l'option xpd = T ou xpd = NApour tracer des légendes à l'extérieur des marges de. Cependant lorsque je l'ai essayer, de toute façon il ne fonctionne pas pour moi ..

par(mfrow=c(1,2),oma=c(0,3,0,0),xpd=TRUE)

plot(c(5,10),col=c("red","blue"),pch=20,cex=2,bty="n",xlab="",ylab="")
barplot(c(5,10),col=c("red","blue"))

mtext(text="My two plots",side=3,cex=2,outer=TRUE,line=-3)

legend("top",legend=c("A", "B"),fill=c("red","blue"),ncol=2,xpd=NA,bty="n")  # Option 1
legend(x=0.01,y=11,legend=c("A", "B"),fill=c("red","blue"),ncol=2,xpd=TRUE,bty="n") # Option 2

Maintenant, ma question est, comment xpd exactement de travail ? comme je suis incapable de comprendre pourquoi ne pas la légende de ne pas être placé à l'extérieur de la zone de traçage avec xpd=T.

Je m'excuse d'avance si certains considèrent cela comme un double de l'questions ci-dessus !!

Aide est très appréciée

Ashwin

OriginalL'auteur Ashwin | 2014-06-06

  1. 9

    Option #1 est probable que la route que vous devez prendre, avec xpd=NA. Il n'est pas automatiquement lieu à la légende dans les marges extérieures, mais il vous permet de placer la légende n'importe où vous voulez. Ainsi, par exemple, vous pouvez utiliser ce code pour placer la légende en haut de la page, environ centré.

    legend(x=-1.6, y=11.6, legend=c("A", "B"), fill=c("red", "blue"), ncol=2, xpd=NA, bty="n")

    J'ai choisi ces valeurs x et y par essai et erreur. Mais, vous pouvez définir une fonction qui se superpose à un seul (invisible) de la parcelle sur le dessus de ceux que vous avez créés. Ensuite, vous pouvez utiliser legend("top", ...). Par exemple

    reset <- function() {
    par(mfrow=c(1, 1), oma=rep(0, 4), mar=rep(0, 4), new=TRUE)
    plot(0:1, 0:1, type="n", xlab="", ylab="", axes=FALSE)
    }

reset()
legend("top", legend=c("A", "B"), fill=c("red", "blue"), ncol=2, bty="n")
    Cool merci.. est-il de toute façon à déterminer automatiquement les valeurs x et y ou n'a que besoin d'être déterminée par des sentiers et de l'erreur ??
    Vous pouvez utiliser une solution de contournement ... comme la superposition d'une parcelle de terrain sur les deux autres, de sorte que vous pouvez simplement appeler legend("top", ...). Je vais ajouter un exemple de ma réponse.

    OriginalL'auteur Jean V. Adams