Le centrage de la légende en dessous de deux parcelles dans la r

J'aimerais centre commun de la légende ci-dessous deux parcelles. J'ai utilisé xpd=TRUE pour permettre l'impression à l'extérieur de l'intrigue elle-même et de l'oma, de créer de l'espace pour la légende. Cependant, la légende ne se déplace pas horizonatally et est écrêtée "premiers" à la verticale. Tous les conseils?

quartz(title="PCoA",12,6)
par(mfrow=c(1,2),oma=c(5,0,0,0),xpd=TRUE)

plot(1:3,4:6,main="plot 1")

plot(1:3,4:6,main="plot 2")


# Clips the plot    
legend(1,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"),fill=c("green","orange","red"), title="Fetch")

# Won't let me move the legend sideways 
legend(0,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"),fill=c("green","orange","red"), title="Fetch")

Mise à JOUR

Avec la solution ci-dessous, il se coupe de l'arête du graphe qui devient visible par la modification de la dimension de la figure en faisant glisser le bord (voir ci-dessous). Toutes les idées de ce qui pourrait se passer?

Le centrage de la légende en dessous de deux parcelles dans la r

OriginalL'auteur Elizabeth | 2012-09-13

11

Plutôt que d'utiliser par=mfrow(...) je vous suggère d'utiliser layout().

Cela vous permet de spécifier une matrice avec parcelle de positions:
```
layout(matrix(c(1,2,3,3), ncol=2, byrow=TRUE), heights=c(4, 1))

par(mai=rep(0.5, 4))
plot(1:3,4:6,main="plot 1")
plot(1:3,4:6,main="plot 2")

par(mai=c(0,0,0,0))
plot.new()
legend(x="center", ncol=3,legend=c("0-1 km","1-5 km","outside barrier"),
       fill=c("green","orange","red"), title="Fetch")
```
Merci encore pour votre réponse. J'ai l'impression de courir dans des problèmes avec cette solution, car il passe à côté de l'arête du graphe (voir à droite du graphique vers la droite dans la mise à jour). Si j'ai 'squash' le graphique le point devient visible. Je suis avec le même paramètre que vous avez indiqué ci-dessus. Toute idée de ce qui peut se passer?
Je présume que vous avez déjà regardé lattice ou ggplot pour obtenir le même effet avec des facettes? C'est ce que je voudrais faire, au lieu de faffing propos avec le manuel de placement de légendes.
Hmm..non, je suis juste en utilisant la mise en page() comme suggéré ci-dessus. Dois-je abandonner l'approche ci-dessus et l'utilisation de treillis à la place?
Probablement. Ou ggplot. (À mon humble avis). Mais cela dépend de votre problème. Ces paquets sont grands pour les données avec les différentes facettes. clairement si vous souhaitez créer complètement différentes parcelles avec une légende populaire, vous allez rencontrer le même problème.
x - et y-étiquettes semblent pas montrer lors de la représentation, comme cela, pour une raison quelconque.

OriginalL'auteur Andrie
4

par(xpd=NA) est plus ce que vous cherchez. Extrait de la ?par page d'aide:

xpd

Une valeur logique ou NA. Si la valeur est FALSE, tout traçage est accroché à l'intrigue de la région, si elle est VRAIE, tout traçage est attaché à la figure de la région, et si NA, tout traçage est fixé à l'appareil de la région. Voir aussi clip.

En effet, vous voulez qu'il soit accroché à l'appareil région et non pas la figure de la région (voir, par exemple, cette entrée de blog graphique explication de la différence entre la parcelle, la figure et l'appareil régions).
```
quartz(title="PCoA",12,6)
par(mfrow=c(1,2),oma=c(5,0,0,0),xpd=NA)

plot(1:3,4:6,main="plot 1")

plot(1:3,4:6,main="plot 2")
legend(-0.5,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"), 
    fill=c("green","orange","red"), title="Fetch")
```
Je vous remercie. Toujours bon de voir d'autres façons d'aborder les choses.
Si vous allez utiliser cette approche, alors vous devez également apprendre les grconvertX et grconvertY fonctions pour trouver les coordonnées de placer la légende.
Il est l'assistant. J'exécute ce code, mais je n'ai pas le même résultat, comme vous.

OriginalL'auteur plannapus

Vous devez vous connecter pour publier un commentaire.