Wie löscht man nicht verwendete Faktoren im facettierten R ggplot Boxplot?

Unten ist ein Beispielcode, mit dem ich einige Boxplots mache:

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

Was dazu führt:

Ich habe alles versucht, was mir einfiel, kann aber keine Handlung machen, in der dieSüdfacette Enthält nur Jahre, in denen Daten angezeigt werden (2001 und 2002). Ist das, was ich versuche, möglich?

Hier ist einVerknüpfung (DEAD) zum Screenshot, der zeigt, was ich erreichen möchte:

Antworten auf die Frage(2)

Ihre Antwort auf die Frage