Communes titre principal d'une figure panneau compilé avec par(mfrow)

J'ai une compilation de 4 parcelles dessinés avec par(mfrow=c(2,2)). Je voudrais attirer un titre commun pour les 2 parcelles ci-dessus et un titre commun pour les 2 ci-dessous des panneaux qui sont centré entre les 2 à gauche et à droite de parcelles.

Est-ce possible?

  • Le faire serait une sorte de obscure du "titre", ne serait-il pas? Pourquoi ne voulez-vous pas au-dessus de toutes les parcelles?
  • Ce que je voulais dire, c'est un titre pour le 2 en haut des parcelles et un titre pour les 2 du bas des parcelles. J'ai corrigé mon Q
InformationsquelleAutor ECII | 2013-02-02
  1. 45

    Ce devrait travail, mais vous aurez besoin de jouer avec le line argument pour l'obtenir juste:

    par(mfrow = c(2, 2))
plot(iris$Petal.Length, iris$Petal.Width)
plot(iris$Sepal.Length, iris$Petal.Width)
plot(iris$Sepal.Width, iris$Petal.Width)
plot(iris$Sepal.Length, iris$Petal.Width)
mtext("My 'Title' in a strange place", side = 3, line = -21, outer = TRUE)

    Communes titre principal d'une figure panneau compilé avec par(mfrow)

    mtext signifie "texte de la marge". side = 3 dit de le placer dans le "top" de la marge. line = -21 dit pour compenser le placement de 21 lignes. outer = TRUE dit que c'est OK d'utiliser l'extérieure de la zone de marge.

    Pour ajouter un autre "titre" en haut, vous pouvez l'ajouter à l'aide, par exemple, mtext("My 'Title' in a strange place", side = 3, line = -2, outer = TRUE)

    • Fantastique. Je vous remercie. Je ne savais pas que mtext pouvez utiliser des valeurs négatives.
    • +1 pour le "Mon" Titre "dans un lieu étrange"...
    • Pas de problème. En général, cependant, je pense que vous le feriez pour cela à l'aide de layout, comme l'a démontré @Didzis de réponse.
    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1
  2. 32

    Vous pouvez utiliser la fonction layout() et de définir les deux traçage des régions qui se produit dans les deux colonnes (voir la répétition des nombres 1 et 3 dans le matrix()). Ensuite, j'ai utilisé plot.new() et text() à l'ensemble des titres. Vous pouvez jouer avec des marges et des hauteurs d'obtenir une meilleure représentation.

    x<-1:10
par(mar=c(2.5,2.5,1,1))
layout(matrix(c(1,2,3,4,1,5,3,6),ncol=2),heights=c(1,3,1,3))
plot.new()
text(0.5,0.5,"First title",cex=2,font=2)
plot(x)
plot.new()
text(0.5,0.5,"Second title",cex=2,font=2)
hist(x)
boxplot(x)
barplot(x)

    Communes titre principal d'une figure panneau compilé avec par(mfrow)

    • Vous avez mon vote ici. Je pense que layout est certainement le chemin à parcourir, mais je voulais montrer la mtext option trop.
    InformationsquelleAutor Didzis Elferts
  3. 12

    Le même mais en gras peut être fait en utilisant title(...) avec les mêmes arguments que ci-dessus:

    title("My 'Title' in a strange place", line = -21, outer = TRUE)
    InformationsquelleAutor Ufos
  4. 7

    Voici une autre façon de faire, à l'aide de la line2user fonction de ce post.

    par(mfrow = c(2, 2))
plot(runif(100))
plot(runif(100))
text(line2user(line=mean(par('mar')[c(2, 4)]), side=2), 
     line2user(line=2, side=3), 'First title', xpd=NA, cex=2, font=2)

plot(runif(100))
plot(runif(100))
text(line2user(line=mean(par('mar')[c(2, 4)]), side=2), 
     line2user(line=2, side=3), 'Second title', xpd=NA, cex=2, font=2)

    Communes titre principal d'une figure panneau compilé avec par(mfrow)

    Ici, le titre est placée à 2 lignes plus haut que le bord supérieur de l'intrigue, comme indiqué par line2user(2, 3). Nous centre par compensation à l'égard de la 2ème et 4ème parcelles, par la moitié de la largeur combinée des marges gauche et droite, c'est à dire mean(par('mar')[c(2, 4)]).

    line2user exprime un décalage (nombre de lignes) à partir d'un axe de coordonnées de l'utilisateur, et est définie comme:

    line2user <- function(line, side) {
  lh <- par('cin')[2] * par('cex') * par('lheight')
  x_off <- diff(grconvertX(0:1, 'inches', 'user'))
  y_off <- diff(grconvertY(0:1, 'inches', 'user'))
  switch(side,
         `1` = par('usr')[3] - line * y_off * lh,
         `2` = par('usr')[1] - line * x_off * lh,
         `3` = par('usr')[4] + line * y_off * lh,
         `4` = par('usr')[2] + line * x_off * lh,
         stop("side must be 1, 2, 3, or 4", call.=FALSE))
}
    • Un gentil @jbaums
    InformationsquelleAutor jbaums