Tracer une légende en dehors de la zone de traçage dans les graphiques de base ?

Question

Comme le dit le titre : Comment puis-je tracer une légende en dehors de la zone de traçage lorsque j'utilise des graphiques de base ?

J'ai pensé à tripoter layout et produire un tracé vide pour ne contenir que la légende, mais je serais intéressé par une façon d'utiliser uniquement les facilités du graphique de base et par exemple, par(mar = ) pour avoir un peu d'espace à droite de la parcelle pour la légende.

---

Voici un exemple :

plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
legend(1,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

produit :

Mais comme je l'ai dit, j'aimerais que la légende soit en dehors de la zone de traçage (par exemple, à droite du graphique/tracé).

Answer 1

Personne n'a mentionné l'utilisation des négatifs inset valeurs pour legend . Voici un exemple, où la légende est à droite du tracé, alignée en haut (en utilisant le mot-clé "topright" ).

# Random data to plot:
A <- data.frame(x=rnorm(100, 20, 2), y=rnorm(100, 20, 2))
B <- data.frame(x=rnorm(100, 21, 1), y=rnorm(100, 21, 1))

# Add extra space to right of plot area; change clipping to figure
par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)

# Plot both groups
plot(y ~ x, A, ylim=range(c(A$y, B$y)), xlim=range(c(A$x, B$x)), pch=1,
               main="Scatter plot of two groups")
points(y ~ x, B, pch=3)

# Add legend to top right, outside plot region
legend("topright", inset=c(-0.2,0), legend=c("A","B"), pch=c(1,3), title="Group")

La première valeur de inset=c(-0.2,0) peut nécessiter un ajustement en fonction de la largeur de la légende.

Answer 2

Peut-être que ce dont vous avez besoin est par(xpd=TRUE) pour permettre aux choses d'être dessinées en dehors de la région du tracé. Donc si vous faites le tracé principal avec bty='L' vous aurez de la place sur la droite pour une légende. Normalement, celle-ci devrait être coupée à la région du tracé, mais faites par(xpd=TRUE) et avec un peu d'ajustement, vous pouvez obtenir une légende aussi droite que possible :

 set.seed(1) # just to get the same random numbers
 par(xpd=FALSE) # this is usually the default

 plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2), bty='L')
 # this legend gets clipped:
 legend(2.8,0,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

 # so turn off clipping:
 par(xpd=TRUE)
 legend(2.8,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

Answer 3

Une autre solution, outre les ondes déjà mentionnées (utilisation de layout ou par(xpd=TRUE) ) consiste à superposer votre tracé avec un tracé transparent sur l'ensemble du dispositif, puis à y ajouter la légende.

L'astuce consiste à superposer un graphique (vide) sur la totalité de la zone de traçage et à y ajouter la légende. Nous pouvons utiliser la fonction par(fig=...) option. Tout d'abord, nous demandons à R de créer un nouveau tracé sur l'ensemble du dispositif de traçage :

par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0), mar=c(0, 0, 0, 0), new=TRUE)

Réglage de oma et mar est nécessaire puisque nous voulons que l'intérieur du tracé couvre l'ensemble du dispositif. new=TRUE est nécessaire pour empêcher R de démarrer un nouveau dispositif. Nous pouvons alors ajouter le plot vide :

plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')

Et nous sommes prêts à ajouter la légende :

legend("bottomright", ...)

ajoutera une légende en bas à droite de l'appareil. De même, nous pouvons ajouter la légende à la marge supérieure ou droite. La seule chose dont nous devons nous assurer est que la marge du tracé original est suffisamment grande pour accueillir la légende.

En mettant tout ça dans une fonction ;

add_legend <- function(...) {
  opar <- par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0), 
    mar=c(0, 0, 0, 0), new=TRUE)
  on.exit(par(opar))
  plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
  legend(...)
}

Et un exemple. Tout d'abord, créez le graphique en vous assurant que nous avons suffisamment d'espace en bas pour ajouter la légende :

par(mar = c(5, 4, 1.4, 0.2))
plot(rnorm(50), rnorm(50), col=c("steelblue", "indianred"), pch=20)

Ajoutez ensuite la légende

add_legend("topright", legend=c("Foo", "Bar"), pch=20, 
   col=c("steelblue", "indianred"),
   horiz=TRUE, bty='n', cex=0.8)

Résultant en :

Answer 4

Désolé de ressusciter un vieux fil, mais j'ai eu le même problème aujourd'hui. La méthode la plus simple que j'ai trouvée est la suivante :

# Expand right side of clipping rect to make room for the legend
par(xpd=T, mar=par()$mar+c(0,0,0,6))

# Plot graph normally
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")

# Plot legend where you want
legend(3.2,1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

# Restore default clipping rect
par(mar=c(5, 4, 4, 2) + 0.1)

Trouvé ici : http://www.harding.edu/fmccown/R/

Answer 5

Je ne peux offrir qu'un exemple de la solution de mise en page déjà signalée.

layout(matrix(c(1,2), nrow = 1), widths = c(0.7, 0.3))
par(mar = c(5, 4, 4, 2) + 0.1)
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
par(mar = c(5, 0, 4, 2) + 0.1)
plot(1:3, rnorm(3), pch = 1, lty = 1, ylim=c(-2,2), type = "n", axes = FALSE, ann = FALSE)
legend(1, 1, c("group A", "group B"), pch = c(1,2), lty = c(1,2))