Comment ajouter un ggplot2 des sous-titres avec différentes taille et la couleur?

Je suis en utilisant ggplot2 pour améliorer les précipitations barplots.

Voici un exemple reproductible de ce que je veux réaliser:

library(ggplot2)
library(gridExtra)
secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])
m <- ggplot(melt.d, aes(x=x, y=y)) +
  geom_bar(fill="darkblue") + 
  labs(x="Weather    stations", y="Accumulated Rainfall [mm]") +
  opts(axis.text.x=theme_text(angle=-45, hjust=0, vjust=1),
       title=expression("Rainfall"), plot.margin = unit(c(1.5, 1, 1, 1), "cm"),
       plot.title = theme_text(size = 25, face = "bold", colour = "black", vjust = 5))
z <- arrangeGrob(m, sub = textGrob("Location", x = 0, hjust = -3.5, vjust = -33, gp = gpar(fontsize = 18, col = "gray40"))) #Or guessing x and y with just option
z

Je ne sais pas comment faire pour éviter à l'aide de deviner les numéros sur hjust et vjust sur ggplot2? Est-il un meilleur moyen de mettre un sous-titre (et pas seulement à l'aide de \n, mais un sous-titre avec un texte différent de la couleur et de la taille)?

J'ai besoin d'être en mesure d'utiliser avec ggsave à un fichier pdf.

Voici deux questions connexes:

Ajouter une note de bas de page de citation à l'extérieur de la zone de traçage dans la R?

Comment puis-je ajouter un sous-titre et de changer la taille de la police de ggplot parcelles dans R?

Merci pour toute aide.

Le vjust=-33 a fonctionné pour moi sur Linux. Je sais que sous est faite pour aller en dessous de l'intrigue, mais c'était la seule façon que j'ai obtenu ce que je voulais.
pour une raison quelconque, cela rend mon intrigue vraiment petit et crée un énorme espace en dessous du graphique
s réponse semble être la voie à suivre aujourd'hui

InformationsquelleAutor Migue | 2012-07-30

ggplot2 r subtitle

La dernière ggplot2 construit (c'est à dire, 2.1.0.9000 ou plus récent) sous-titres et en-dessous de leur lopin de terre de légendes comme fonctionnalité intégrée. Cela signifie que vous pouvez le faire:

library(ggplot2) # 2.1.0.9000+ 

secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])

m <-  ggplot(melt.d, aes(x=x, y=y))
m <- m + geom_bar(fill="darkblue", stat="identity")
m <- m + labs(x="Weather    stations", 
              y="Accumulated Rainfall [mm]",
              title="Rainfall",
              subtitle="Location")
m <- m + theme(axis.text.x=element_text(angle=-45, hjust=0, vjust=1)) 
m <- m + theme(plot.title=element_text(size=25, hjust=0.5, face="bold", colour="maroon", vjust=-1))
m <- m + theme(plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="black"))
m

Erreur dans (function (el, elname) : "de l'intrigue.sous-titres" n'est pas valide, thème, nom de l'élément.
Veuillez lire les réponses: " dernière ggplot2 construit (c'est à dire, 2.1.0.9000 ou plus récent)"

InformationsquelleAutor hrbrmstr

73

Ignorer cette réponse ggplot2 version 2.2.0 a titre et sous-titre de la fonctionnalité. Voir @hrbrmstr la réponse de ci-dessous.

Vous pouvez utiliser imbriquée atop fonctions à l'intérieur d'un expression pour obtenir différentes tailles.

MODIFIER code mis à Jour pour ggplot2 0.9.3
```
m <-  ggplot(melt.d, aes(x=x, y=y)) + 
     geom_bar(fill="darkblue", stat = "identity") + 
     labs(x="Weather    stations", y="Accumulated Rainfall [mm]") + 
     ggtitle(expression(atop("Rainfall", atop(italic("Location"), "")))) +
     theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1), 
     #plot.margin = unit(c(1.5, 1, 1, 1), "cm"), 
     plot.title = element_text(size = 25, face = "bold", colour = "black", vjust = -1))
```
- Salut, c'est une solution étonnante. J'aimerais l'utiliser mais au lieu de la atop(italic("Location") je voudrais avoir un objet: atop(italic(my_string_vector). J'ai essayé, mais les sous-titres évalués à (my_string_vector). Comment la force de cette expression à l'utilisation de la chaîne de valeur et de ne pas traiter le texte à la lettre?
- dans le cas où vous rencontrez des problèmes en utilisant des variables, vous devez utiliser bquote au lieu de expression, voir ici
- Pour utiliser les objets, remplacer expression avec bquote et envelopper les objets avec .(), comme ça, pour un titre principal stockées dans un objet appelé "principal.le titre" et pour une des sous-titres stockés dans un objet appelé "sous.title": ggtitle(bquote(atop(.(main.title), atop(italic(.(sub.title)), "")))) de Crédit va à Didzis Elferts de réponse ici: stackoverflow.com/questions/19957536/...
InformationsquelleAutor Sandy Muspratt
8

Il semble opts est obsolète depuis la ggplot 2 0.9.1 et n'est plus fonctionnelle. Cela a fonctionné pour moi avec les dernières versions d'aujourd'hui: + ggtitle(expression(atop("Top line", atop(italic("2nd line"), "")))).
- Cela fonctionne aussi sans la finale , "" - qu'est-ce que cette partie?
- Elle me bat. J'ai peut-être copié un exemple, j'ai vu quelque part d'autre.
- Probablement à partir de @SandyMuspratt la réponse ci-dessus 😛 - je comprends maintenant, atop() est quelque chose comme une fraction, sans barres. Donc en mettant le deuxième atop() à l'intérieur de la première vous donne une sous-fraction, avec le texte proportionnellement plus petites. Le "" est le bas de la sous-fraction. Il semble être inutile si - peut-être atop() par défaut est une chaîne vide pour le deuxième paramètre, ou quelque chose.
- Il apparaît @SandyMuspratt la réponse a été modifié après j'ai posté ma réponse à réfléchir code similaire à la mienne. 🙂
InformationsquelleAutor Aren Cambre

il n'est pas trop dur pour ajouter grobs à la gtable et de faire une fantaisie titre de cette façon,

library(ggplot2)
library(grid)
library(gridExtra)
library(magrittr)
library(gtable)

p <- ggplot() + 
  theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm"))

lg <- list(textGrob("Rainfall", x=0, hjust=0, 
                    gp = gpar(fontsize=24, fontfamily="Skia", face=2, col="turquoise4")),
               textGrob("location", x=0, hjust=0, 
                        gp = gpar(fontsize=14, fontfamily="Zapfino", fontface=3, col="violetred1")),
           pointsGrob(pch=21, gp=gpar(col=NA, cex=0.5,fill="steelblue")))

margin <- unit(0.2, "line")
tg <- arrangeGrob(grobs=lg, layout_matrix=matrix(c(1,2,3,3), ncol=2),
                  widths = unit.c(grobWidth(lg[[1]]), unit(1,"null")),
                  heights = do.call(unit.c, lapply(lg[c(1,2)], grobHeight)) + margin)

grid.newpage()
ggplotGrob(p) %>%
  gtable_add_rows(sum(tg$heights), 0) %>%
  gtable_add_grob(grobs=tg, t = 1, l = 4)  %>%
  grid.draw()

Comment ajouter un ggplot2 des sous-titres avec différentes taille et la couleur?

InformationsquelleAutor baptiste

Cette version utilise une gtable fonction. Il permet à deux lignes de texte dans le titre. Le texte, la taille, la couleur et la police de caractères de chaque ligne peut être réglé indépendamment de l'autre. Cependant, la fonction modifier un terrain avec une seule parcelle panneau uniquement.

Mineur edit: mise à Jour de ggplot2 v2.0.0

# The original plot
library(ggplot2)
secu <- seq(1, 16, by = 2)
melt.d <- data.frame(y = secu, x = LETTERS[1:8])
m <- ggplot(melt.d, aes(x = x, y = y)) + 
geom_bar(fill="darkblue", stat = "identity") + 
labs(x = "Weather    stations", y = "Accumulated Rainfall [mm]") + 
theme(axis.text.x = element_text(angle = -45, hjust = 0, vjust = 1))
# The function to set text, size, colour, and face
plot.title = function(plot = NULL, text.1 = NULL, text.2 = NULL, 
size.1 = 12,  size.2 = 12,
col.1 = "black", col.2 = "black", 
face.1 = "plain",  face.2 = "plain") {
library(gtable)
library(grid)
gt = ggplotGrob(plot)
text.grob1 = textGrob(text.1, y = unit(.45, "npc"), 
gp = gpar(fontsize = size.1, col = col.1, fontface = face.1))
text.grob2 = textGrob(text.2,  y = unit(.65, "npc"), 
gp = gpar(fontsize = size.2, col = col.2, fontface = face.2))
text = matrix(list(text.grob1, text.grob2), nrow = 2)
text = gtable_matrix(name = "title", grobs = text, 
widths = unit(1, "null"), 
heights = unit.c(unit(1.1, "grobheight", text.grob1) + unit(0.5, "lines"), unit(1.1,  "grobheight", text.grob2) + unit(0.5, "lines")))
gt = gtable_add_grob(gt, text, t = 2, l = 4)
gt$heights[2] = sum(text$heights)
class(gt) =  c("Title", class(gt))
gt
}
# A print method for the plot
print.Title <- function(x) {
grid.newpage()   
grid.draw(x)
}
# Try it out - modify the original plot
p = plot.title(m, "Rainfall", "Location", 
size.1 = 20, size.2 = 15, 
col.1 = "red", col.2 = "blue", 
face.2 = "italic")
p

Comment ajouter un ggplot2 des sous-titres avec différentes taille et la couleur?

InformationsquelleAutor Sandy Muspratt

Vous pouvez utiliser envelopper l'intrigue dans la grille.organiser et réussir un personnalisé basé sur une grille de titre,

Comment ajouter un ggplot2 des sous-titres avec différentes taille et la couleur?

library(ggplot2)
library(gridExtra)
p <- ggplot() + 
theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm"))
tg <- grobTree(textGrob("Rainfall", y=1, vjust=1, gp = gpar(fontsize=25, face=2, col="black")),
textGrob("location", y=0, vjust=0, gp = gpar(fontsize=12, face=3, col="grey50")),
cl="titlegrob")
heightDetails.titlegrob <- function(x) do.call(sum,lapply(x$children, grobHeight))
grid.arrange(p, top = tg)

Les versions actuelles de ggplot utiliser le thème et et element_text au lieu de choisit et theme_text respectivement. Aussi, le ggplotGrob approche semble échouer dans la version actuelle de gridExtra (gridExtra_0.8.1) et ggplot2 (ggplot2_0.9.3.1)

InformationsquelleAutor baptiste

Vous avez peut-être remarqué que de Sable du code n'est pas de produire un titre en gras pour "Pluie" - les instructions pour faire de ce gras doit se faire dans le sommet() la fonction plutôt que le thème de fonction ().

ggplot(melt.d, aes(x=x, y=y)) + 
geom_bar(fill="darkblue", stat = "identity") + 
labs(x="Weather    stations", y="Accumulated Rainfall [mm]") + 
ggtitle(expression(atop(bold("Rainfall"), atop(italic("Location"), "")))) +
theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1),
plot.title = element_text(size = 25, colour = "black", vjust = -1))

Comment ajouter un ggplot2 des sous-titres avec différentes taille et la couleur?

InformationsquelleAutor Nathan

Vous devez vous connecter pour publier un commentaire.