完全移除facet_wrap标签

Question 1

我想完全删除刻面的标签，以创建一种迷你图效果，对于观众来说，这些标签无关紧要，我能想到的最好的方法是：

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

因此，我可以完全摆脱（现在为空白）strip.background以便为“火花线”留出更多空间吗？

或者，对于像这样的大量二进制值时间序列，是否有更好的方法来获得这种“迷你图”效果？

Question 2

对于ggplot v2.1.0或更高版本，用于element_blank()删除不需要的元素：

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

在这种情况下，您要删除的元素称为strip。

使用ggplot grob布局的替代方法

在ggplot（v2.1.0之前）的旧版本中，带状文本在gtable布局中占据行。

element_blank 删除文本和背景，但不会删除行占用的空间。

此代码从布局中删除这些行：

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)

Question 3

我正在使用ggplot2版本1，所需的命令已更改。代替

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

您现在使用

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

有关更多详细信息，请参见http://docs.ggplot2.org/current/theme.html

Question 4

桑迪的更新答案似乎不错，但可能由于ggplot更新而过时了吗？据我所知，以下代码（Sandy原始答案的简化版本）重现了Sean的原始图形，而没有任何额外的空间：

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

我正在使用ggplot 2.0.0。

Question 5

据我所知，桑迪的答案是正确的，但我认为值得一提的是，没有小平面的图的宽度与除去小平面的图的宽度似乎有很小的差异。

除非您正在寻找，否则它并不明显，但是，如果您使用Wickham在他的书中建议的视口布局来堆叠图，则差异将显而易见。