次のようなデータがあるとする。 N <- 100 x <- c("Apple", "Banana", "Candy") x <- rep(x, N) head(x) [1] "Apple" "Banana" "Candy" "Apple" "Banana" "Candy" このデータの中の全角文字を半角にしたい。 1. gsub を使う base 関数にある gsub() を使うと次のように書ける。 zenkaku <- c("A", "B", "C") hankaku <- c("A", "B", "C") use_gsub <- function(string, pattern, replacement) { for (i in seq_along(pattern)) { string <- gsub(pattern[i], replacement[i], string) } stri