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

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 以便为“迷你图”留出更多空间吗？

或者有没有更好的方法来获得这个“迷你图“对于像这样的大量二进制值时间序列的影响？

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