我想完全删除刻面的标签，以创建一种sparkline效果，对于观众来说，标签是不相关的，我能想到的最好办法是:
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))
所以我可以go 掉(现在是空白的)纸条.背景完全是为了给"spark 线"留出更多空间？
或者，对于这样大量的二值时间序列，有没有更好的方法来获得这种"sparkline"效应？
对于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(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)