CODEWITHSUNDEEP
rgraphicsggplot2
Sean
Sean

Reputation: 3955

Remove facet_wrap labels completely

I'd like to remove the labels for the facets completely to create a sort of sparkline effect, as for the audience the labels are irrelevant, the best I can come up with is:

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))

So can I get rid of the (now blank) strip.background completely to allow more space for the "sparklines"?

Or alternatively is there a better way to get this "sparkline" effect for a large number of binary valued time-series like this?

Upvotes: 132

Views: 135530

Answers (4)

Sandy Muspratt
Sandy Muspratt

Reputation: 32859

For ggplot v2.1.0 or higher, use element_blank() to remove unwanted elements:

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()
)

In this case, the element you're trying to remove is called strip.

ggplot2 figure without panel titles

Alternative using ggplot grob layout

In older versions of ggplot (before v2.1.0), the strip text occupies rows in the gtable layout.

element_blank removes the text and the background, but it does not remove the space that the row occupied.

This code removes those rows from the layout: 

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)

Upvotes: 200

Nicholas G Reich
Nicholas G Reich

Reputation: 1138

Sandy's updated answer seems good but, possibly has been rendered obsolete by updates to ggplot? From what I can tell the following code (a simplified version of Sandy's original answer) reproduces Sean's original graph without any extra space:

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())

I am using ggplot 2.0.0.

Upvotes: 10

hibernado
hibernado

Reputation: 1780

I'm using ggplot2 version 1 and the commands required have changed. Instead of 

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

you now use 

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

For more detail see http://docs.ggplot2.org/current/theme.html

Upvotes: 29

CW Dillon
CW Dillon

Reputation: 156

As near as I can tell, Sandy's answer is correct but I think it's worth mentioning that there seems to be a small difference the width of a plot with no facets and the width of a plot with the facets removed.

It isn't obvious unless you're looking for it but, if you stack plots using the viewport layouts that Wickham recommends in his book, the difference becomes apparent.

Upvotes: 4

Related Questions