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: