ex.txt <- c("青空文庫","青い鳥文庫")
> nchar(ex.txt) [1] 4 5
> substr(ex.txt, 1,3) [1] "青空文" "青い鳥"
> chartr("青い鳥","岩波", ex.txt) 以下にエラー chartr("青い鳥", "岩波", ex.txt) : 'old' が 'new' より長いです > chartr("青","岩波", ex.txt) [1] "岩空文庫" "岩い鳥文庫"
[[1]] [1] "青" "空" "文" "庫" [[2]] [1] "青" "い" "鳥" "文" "庫"