Place de la légende, ggplot, par rapport à comploter région

Problème ici, c'est un peu évident je pense. J'aimerais que la légende placée (verrouillé) dans le coin en haut à gauche du "complot de la région". À l'aide de c(0.1,0.13), etc n'est pas une option pour un certain nombre de raisons.

Est-il un moyen de modifier le point de référence pour les coordonnées de sorte qu'ils sont par rapport au tracé de la région?

mtcars$cyl <- factor(mtcars$cyl, labels=c("four","six","eight"))
ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
opts(legend.position = c(0, 1), title="Legend placement makes me sad")

Place de la légende, ggplot, par rapport à comploter région

Acclamations

  • Qu'entendez-vous par "complot de la région"? La région qui est rempli par du gris?
  • Oui, l'OP fondamentalement veut être en mesure de déterminer les coordonnées correctes pour legend.position à la place de la légende dans un coin de la "région de données", ou le gris de la région. Comme je l'ai dit dans le chat, je m'en doutais que quelqu'un comme vous aurez à le peser avec une grille de solution.
  • ensuite, c'est le comportement par défaut et tous vous avez besoin est de régler la bonne justification.
  • Whaddya le savez, j'ai toujours pensé que c'était basé sur le périphérique de la région. Apprendre quelque chose de nouveau chaque jour...
  • peut-être que c'était le comportement par défaut avant de 0.9 0.89, je n'en suis pas sûr.
InformationsquelleAutor nzcoops | 2012-05-25
  1. 50

    Mise à jour: opts a été désapprouvée. Veuillez utiliser theme au lieu de cela, comme décrit dans cette réponse.

    Le placement de ce guide est basée sur l'intrigue de la région (c'est à dire, la zone remplie par le gris) par défaut, mais la justification est centré.
    Vous devez donc définir les haut-gauche de la justification:

    ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
  opts(legend.position = c(0, 1), 
       legend.justification = c(0, 1), 
       legend.background = theme_rect(colour = NA, fill = "white"),
       title="Legend placement makes me happy")

    Place de la légende, ggplot, par rapport à comploter région

    Si vous voulez placer le guide à l'encontre de l'ensemble du dispositif de la région, vous pouvez modifier les gtable de sortie:

    p <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
  opts(legend.position = c(0, 1), 
       legend.justification = c(0, 1), 
       legend.background = theme_rect(colour = "black"),
       title="Legend placement makes me happy")

gt <- ggplot_gtable(ggplot_build(p))
nr <- max(gt$layout$b)
nc <- max(gt$layout$r)
gb <- which(gt$layout$name == "guide-box")
gt$layout[gb, 1:4] <- c(1, 1, nr, nc)
grid.newpage()
grid.draw(gt)

    Place de la légende, ggplot, par rapport à comploter région

    • merci, c'est pas dur en haut à gauche", mais étant équi éloigné à la fois de "bords" se faire 🙂
    • opte a été désapprouvée. Utiliser le thème de la place.
    • Ceci provoque une erreur: "impossible de trouver la fonction "opte"'.
    InformationsquelleAutor kohske
  2. 65

    Mise à jour: opts a été désapprouvée. Veuillez utiliser theme au lieu de cela, comme décrit dans cette réponse.

    Juste pour élargir sur kohske de la réponse, donc il est peu plus complet pour la prochaine personne à tomber sur elle.

    mtcars$cyl <- factor(mtcars$cyl, labels=c("four","six","eight"))
library(gridExtra)

a <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
opts(legend.justification = c(0, 1), legend.position = c(0, 1), title="Legend is top left")
b <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
opts(legend.justification = c(1, 0), legend.position = c(1, 0), title="Legend is bottom right")
c <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
opts(legend.justification = c(0, 0), legend.position = c(0, 0), title="Legend is bottom left")
d <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + 
opts(legend.justification = c(1, 1), legend.position = c(1, 1), title="Legend is top right")

grid.arrange(a,b,c,d)

    Place de la légende, ggplot, par rapport à comploter région

    InformationsquelleAutor nzcoops
  3. 49

    J'ai été à la recherche pour les mêmes réponses. Mais a constaté que opts fonction ne fait plus partie du package ggplot2. Après avoir cherché un peu plus de temps, j'ai trouvé que l'on peut utiliser theme à faire la même chose que choisit. Par conséquent, l'édition de ce fil, de façon à en minimiser d'autres temps.

    Ci-dessous est le code similaire comme l'écrit nzcoops.

    mtcars$cyl <- factor(mtcars$cyl, labels=c("four","six","eight"))
library(gridExtra)

a <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + labs(title = "Legend is top left") + 
theme(legend.justification = c(0, 1), legend.position = c(0, 1))

b <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + labs(title = "Legend is bottom right") +
theme(legend.justification = c(1, 0), legend.position = c(1, 0))

c <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + labs(title = "Legend is bottom left") +
theme(legend.justification = c(0, 0), legend.position = c(0, 0))

d <- ggplot(mtcars, aes(x=wt, y=mpg, colour=cyl)) + geom_point(aes(colour=cyl)) + labs(title = "Legend is top right") +
theme(legend.justification = c(1, 1), legend.position = c(1, 1))

grid.arrange(a,b,c,d)

    Ce code vous donnera exactement la même parcelle.

    InformationsquelleAutor Kumar Manglam
  4. 12

    Étendre sur l'excellend les réponses ci-dessus, si vous voulez ajouter du rembourrage entre la légende et l'extérieur de la boîte, utilisez legend.box.margin:

    # Positions legend at the bottom right, with 50 padding
# between the legend and the outside of the graph.
theme(legend.justification = c(1, 0), 
    legend.position = c(1, 0),
    legend.box.margin=margin(c(50,50,50,50)))

    Cela fonctionne sur la dernière version de ggplot2 qui est v2.2.1 au moment de la rédaction.

    • De Nice avec l'extension de marges de! Juste une petite suggestion si vous voulez toutes les marges à être le même, l'utilisation rep(50, times=4) pour faciliter l'ajustement de la valeur de la marge
    InformationsquelleAutor Contango