Р: Заменить все знаки препинания обычными буквами.

Question

Я ищу простой способ заменить все знаки препинания обычными буквами. Например, я хочу изменить föó на foo. Я могу сделать это так:

gsub("ö|ó","o","föó")

однако, вероятно, будет много ручной работы, чтобы сделать это для каждого возможного пунктуированного письма Есть ли способ сделать это автоматически?

Answer 1

Вы можете попробовать несколько вариантов этого:

    cleanString <- function(x){
        tmp <- iconv(x, from="UTF8", to ="ASCII//TRANSLIT")
        gsub("[^[:alpha:]]", "", tmp)
        }

x = "föó"

cleanString(x)

[1] "foo"

идея использования iconv из Удаление диакритических знаков из строки