正規表現

Rでグラフの文字をたて書きにする においてだが...

for は使っても良いが，別解を提案

tate.txt = function(x) {
  return(sapply(x, function(y) gsub("(.)", "\\1\n", y)))
}