Supprimer complètement les étiquettes facet_wrap

Question

J'aimerais supprimer complètement les étiquettes des facettes pour créer une sorte de sparkline En effet, pour le public, les étiquettes ne sont pas pertinentes, le mieux que je puisse faire est de dire :

library(MASS)
library(ggplot2)
qplot(week,y,data=bacteria,group=ID, geom=c('point','line'), xlab='', ylab='') + 
     facet_wrap(~ID) + 
     theme(strip.text.x = element_text(size=0))

Puis-je donc me débarrasser complètement de la bande (maintenant vide) strip.background pour laisser plus d'espace aux "sparklines" ?

Ou bien existe-t-il un meilleur moyen d'obtenir ce " sparkline "Quel est l'effet d'un grand nombre de séries temporelles à valeur binaire comme celle-ci ?

Answer 1

Pour ggplot v2.1.0 ou supérieur, utilisez element_blank() pour supprimer les éléments indésirables :

library(MASS) # To get the data
library(ggplot2)

qplot(
  week,
  y,
  data = bacteria,
  group = ID,
  geom = c('point', 'line'),
  xlab = '',
  ylab = ''
) + 
facet_wrap(~ ID) + 
theme(
  strip.background = element_blank(),
  strip.text.x = element_blank()
)

Dans ce cas, l'élément que vous essayez de supprimer s'appelle strip .

---

Alternative utilisant ggplot grob layout

Dans les anciennes versions de ggplot (avant v2.1.0), le texte de la bande occupe des lignes dans la mise en page gtable.

element_blank supprime le texte et le fond, mais ne supprime pas l'espace que la ligne occupait.

Ce code supprime ces lignes de la mise en page :

library(ggplot2)
library(grid)

p <- qplot(
  week,
  y,
  data = bacteria,
  group = ID,
  geom = c('point', 'line'),
  xlab = '',
  ylab = ''
) + 
facet_wrap(~ ID)

# Get the ggplot grob
gt <- ggplotGrob(p)

# Locate the tops of the plot panels
panels <- grep("panel", gt$layout$name)
top <- unique(gt$layout$t[panels])

# Remove the rows immediately above the plot panel
gt = gt[-(top-1), ]

# Draw it
grid.newpage()
grid.draw(gt)

Answer 2

J'utilise la version 1 de ggplot2 et les commandes requises ont changé. Au lieu de

ggplot() ... + 
opts(strip.background = theme_blank(), strip.text.x = theme_blank())

vous utilisez maintenant

ggplot() ... + 
theme(strip.background = element_blank(), strip.text = element_blank())

Pour plus de détails, voir http://docs.ggplot2.org/current/theme.html

Answer 3

La réponse mise à jour de Sandy semble bonne, mais elle a peut-être été rendue obsolète par les mises à jour de ggplot ? D'après ce que je peux dire, le code suivant (une version simplifiée de la réponse originale de Sandy) reproduit le graphique original de Sean sans espace supplémentaire :

library(ggplot2)
library(grid)
qplot(week,y,data=bacteria,group=ID, geom=c('point','line'), xlab='', ylab='') + 
 facet_wrap(~ID) + 
 theme(strip.text.x = element_blank())

J'utilise ggplot 2.0.0.

Answer 4

Pour autant que je sache, la réponse de Sandy est correcte, mais je pense qu'il est utile de mentionner qu'il semble y avoir une petite différence entre la largeur d'un tracé sans facettes et la largeur d'un tracé avec les facettes enlevées.

Ce n'est pas évident, à moins de le chercher, mais si vous empilez les tracés en utilisant les mises en page des fenêtres d'affichage que Wickham recommande dans son livre, la différence devient évidente.