Como eliminar fatores não utilizados no boxplot facetado R ggplot?

Abaixo está um código de exemplo que uso para criar alguns boxplots:

stest <- read.table(text="    site  year    conc
    south   2001    5.3
    south   2001    4.67
    south   2001    4.98
    south   2002    5.76
    south   2002    5.93
    north   2001    4.64
    north   2001    6.32
    north   2003    11.5
    north   2003    6.3
    north   2004    9.6
    north   2004    56.11
    north   2004    63.55
    north   2004    61.35
    north   2005    67.11
    north   2006    39.17
    north   2006    43.51
    north   2006    76.21
    north   2006    158.89
    north   2006    122.27
", header=TRUE)

require(ggplot2)
ggplot(stest, aes(x=year, y=conc)) +
  geom_boxplot(horizontal=TRUE) +
  facet_wrap(~site, ncol=1) +
  coord_flip() +
  scale_y_log10()

O que resulta disso:

Eu tentei tudo que pude pensar, mas não posso fazer uma trama onde ofaceta sul contém apenas anos em que os dados são exibidos (2001 e 2002). O que estou tentando fazer é possível?

Aqui está umligação (DEAD) para a captura de tela mostrando o que eu quero alcançar:

questionAnswers(2)

yourAnswerToTheQuestion