[解決済み] サイズと色が異なるggplot2サブタイトルを追加するには？

質問

降水量の棒グラフを改善するためにggplot2を使っています。

以下は、私が実現したいことの再現可能な例です。

library(ggplot2)
library(gridExtra)
secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])
m <- ggplot(melt.d, aes(x=x, y=y)) +
  geom_bar(fill="darkblue") + 
  labs(x="Weather    stations", y="Accumulated Rainfall [mm]") +
  opts(axis.text.x=theme_text(angle=-45, hjust=0, vjust=1),
       title=expression("Rainfall"), plot.margin = unit(c(1.5, 1, 1, 1), "cm"),
       plot.title = theme_text(size = 25, face = "bold", colour = "black", vjust = 5))
z <- arrangeGrob(m, sub = textGrob("Location", x = 0, hjust = -3.5, vjust = -33, gp = gpar(fontsize = 18, col = "gray40"))) #Or guessing x and y with just option
z

ggplot2のhjustやvjustで推測数字を使わないようにする方法がわからないのですが？サブタイトルの付け方(ただ単に˶‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾;)で、もっといい方法はないでしょうか？

ggsaveでpdfファイルが作れるようにしたいのですが。

以下は関連する2つの質問です。

Rでプロット領域の外側に脚注の引用を追加しますか？

Rでggplotのプロットにサブタイトルを追加し、フォントサイズを変更するにはどうすればよいですか？

どんな助けでもありがとうございます。

どのように解決するのですか？

最新のggplot2ビルド(すなわち、2.1.0.9000以降)では、字幕とプロット下のキャプションが組み込み機能として提供されています。つまり、こんなことができるようになります。

library(ggplot2) # 2.1.0.9000+ 

secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])

m <-  ggplot(melt.d, aes(x=x, y=y))
m <- m + geom_bar(fill="darkblue", stat="identity")
m <- m + labs(x="Weather    stations", 
              y="Accumulated Rainfall [mm]",
              title="Rainfall",
              subtitle="Location")
m <- m + theme(axis.text.x=element_text(angle=-45, hjust=0, vjust=1)) 
m <- m + theme(plot.title=element_text(size=25, hjust=0.5, face="bold", colour="maroon", vjust=-1))
m <- m + theme(plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="black"))
m