L'ajout d'un titre propre à ggplot

J'ai essayé ce matin et ne peut toujours pas trouver une solution après la lecture de related post sur stackoverflow

J'ai le code suivant:

names <- colnames(df[17:length(df)])

counter = 17L

for (i in 1:length(names)) {
  df.tax <- subset(df, df[,c(counter)] != 0)
  counter = counter + 1L
  meta <- subset(df.tax, select=c(1:16))
  meltmeta <- melt(meta, id=c("Collector", "Year","Week","Cities","Provinces"))
  ppv <- ggplot(meltmeta, aes(title = paste(names[i]), factor(Provinces), value))
  ppv + geom_boxplot() + geom_boxplot(aes(fill=Collector), alpha=I(0.5)) + geom_point(aes(color=Collector), size=1) +facet_wrap(~variable, scale="free")
  ggsave(file = paste(names[i], sep=".","provinces_vs_climate.pdf"), width=16, height=8)
}

Mon problème est que je ne peut pas ajouter un titre approprié pour ggplot. À chaque itération de la boucle for, je suis de la génération d'un nouveau dataframe appelé df.d'impôt par subsetting pièces de df. J'ai fondre df, puis en essayant de générer une parcelle à l'aide de ggplot.

J'ai réussi à enregistrer chaque parcelle avec un nom de fichier différent (basé sur les noms de tableau) à chaque itération sur ggsave, mais ggplot il suffit de garder sur la création du titre de "coller(noms[i])" pour chaque parcelle.

J'ai essayé, get(), coller(), les laboratoires()...etc, mais aucun travail

Ce que quelqu'un sait comment je peux résoudre ce problème?

InformationsquelleAutor WonderSteve | 2013-04-08
  1. 11

    Comme mentionné par joran, depuis la version 0.9.2 de ggplot2, la façon la plus simple de définir un titre pour votre parcelle de terrain est d'utiliser ggtitle. À l'aide de ggtitle votre code devrait ressembler à quelque chose comme ceci:

    for (i in 1:length(names)) {
  df.tax <- subset(df, df[,c(counter)] != 0)
  counter = counter + 1L
  meta <- subset(df.tax, select=c(1:16))
  meltmeta <- melt(meta, id=c("Collector", "Year","Week","Cities","Provinces"))
  ppv <- ggplot(meltmeta, aes(factor(Provinces), value))
  ppv <- ppv + geom_boxplot() 
  ppv <- ppv + geom_boxplot(aes(fill=Collector), alpha=I(0.5)) 
  ppv <- ppv + geom_point(aes(color=Collector), size=1) 
  ppv <- ppv + facet_wrap(~variable, scale="free")
  ppv <- ppv + ggtitle(paste(names[i]))
  ggsave(file = paste(names[i], sep=".","provinces_vs_climate.pdf"), width=16, height=8)
}
    • Pas besoin de lien vers mon profil, ou même de me mentionner vraiment. Si je me limiter à un commentaire c'est parce que je n'ai pas le temps/l'inclinaison d'écrire une réponse, et attendons d'autres à le faire. 🙂
    • Je vais supprimer le lien si vous préférez. Même si je suis heureux, j'ai cliqué à travers elle, personnellement, comme je suis un compagnon de skieur nordique/analyste de données (ce qui est une agréable surprise).
    • Pas besoin de l'enlever...laisser vous savez que c'est tout à fait bien pour les pocher un de mes commentaires que de réponses, c'est tout.
    • Merci beaucoup! Je ne connaissais pas ggtitle
    InformationsquelleAutor Wilduck