r - plotmathを使用したggplot2での上付き文字

Question

いくつかの投稿で参照されているプロット数式を使用して、y 軸の単位の上付き文字を取得しようとしています。式とここの使用に関するスレッドを調べましたが、うまくいきません。これが私がこれまでに持っているものです：

ggplot(data.frame, aes(Region, Zmar_sh)) + 
  geom_boxplot() + xlab("Region") +  
  ylab(expression(paste("eelgrass shoot density", " (shoots/", expression(m[2])))) +
  ggtitle(expression(paste(italic("Zostera marina")," shoot density in X Bay", sep = " ")))

ggtitle式は機能しますが、y軸に「2」を上付き文字として「アマモのシュート密度（シュート/ m2）」を読み取らせません。私は何が欠けていますか？