plotで軸タイトルを縦書きにする

当方windows環境です。
plotを用いる際に軸タイトルを縦書きにしたいと聞かれたのでとりあえず改行コードを間にはさむ回答をしたのですが、ggplot2やlatticeを用いる以外にもっとエレガントな回答ないでしょうか。

axis_text.R

convertTXT <- function(x){
res <- paste(collapse="\n", unlist(strsplit(split="", x)))
return(res)
}

plot(x=2000:2010, y=25:35, type="p", xlab="平均気温", ylab="")
mtext(convertTXT("全世界の海賊の数"), side=2, las=1, line=3)