Изменение метки фасета на математическую формулу в ggplot2

Интересно, как изменить метку facetна математическую формулу в ggplot2.

d <- ggplot(diamonds, aes(carat, price, fill =..density..)) +
  xlim(0, 2) + stat_binhex(na.rm = TRUE) + opts(aspect.ratio = 1)
d + facet_wrap(~ color, ncol = 4)

Например, я хочу изменить метку фасета с Dна Y[1], где 1 — нижний индекс. Заранее спасибо за вашу помощь.

Я нашел этот ответ , но он у меня не работает. Я использую R 2.15.1и ggplot2 0.9.1.