Wie kann ich leere Faktoren aus ggplot2-Facetten entfernen?

Ich versuche eine zu ändernBeispiel eines einfachen Waldes Plotten durch Einführen von Facetten nach einer Faktorvariablen.

Angenommene Daten dieser Struktur:

<code>test <- structure(list(characteristic = structure(c(1L, 2L, 3L, 1L, 2L
), .Label = c("Factor1", "Factor2", "Factor3"), class = "factor"), 
    es = c(1.2, 1.4, 1.6, 1.3, 1.5), ci_low = c(1.1, 1.3, 1.5, 
    1.2, 1.4), ci_upp = c(1.3, 1.5, 1.7, 1.4, 1.6), label = structure(c(1L, 
    3L, 5L, 2L, 4L), .Label = c("1.2 (1.1, 1.3)", "1.3 (1.2, 1.4)", 
    "1.4 (1.3, 1.5)", "1.5 (1.4, 1.6)", "1.6 (1.5, 1.7)"), class = "factor"), 
    set = structure(c(1L, 1L, 1L, 2L, 2L), .Label = c("H", "S"
    ), class = "factor")), .Names = c("characteristic", "es", 
"ci_low", "ci_upp", "label", "set"), class = "data.frame", row.names = c(NA, 
-5L))
</code>

Und den Code ausführen:

<code>p <- ggplot(test, aes(x=characteristic, y=es, ymin=ci_low, ymax=ci_upp)) + geom_pointrange() +
  coord_flip() + geom_hline(aes(x=0), lty=2) + 
  facet_wrap(~ set, ncol = 1) +
  theme_bw() + 
  opts(strip.text.x = theme_text())
</code>

Erzeugt eine Ausgabe wie folgt:

Alles gut soweit. Ich möchte jedoch das leere Faktor3-Level von meinem unteren Panel loswerden und kann keinen Weg finden, dies zu tun. Gibt es eine Möglichkeit, das zu tun?

Danke für die Hilfe.

Antworten auf die Frage(2)

Ihre Antwort auf die Frage