[解決済み】ファセットラベルを変更する方法は？

質問

私は以下のように使っています。 ggplot コマンドを使用します。

ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10)
  + scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2))
  + facet_grid(hospital ~ .)
  + theme(panel.background = theme_blank())

を生成します。

を変更したいのですが ファセット ラベルを、もっと短いもの（例えば Hosp 1 , Hosp 2 ...）は、現在では長すぎて窮屈に見えるからです（グラフの高さを増やすという選択肢はありません。） そこで ファセット・グリッド のヘルプページがありますが、方法がわかりません。

解決方法は？

基礎となる因子レベル名を以下のようなものに変更します。

# Using the Iris data
> i <- iris
> levels(i$Species)
[1] "setosa"     "versicolor" "virginica" 
> levels(i$Species) <- c("S", "Ve", "Vi")
> ggplot(i, aes(Petal.Length)) + stat_bin() + facet_grid(Species ~ .)