Удалить все специальные символы из строки в R?

Как удалить все специальные символы из строки в R и заменить их пробелами?

Некоторые специальные символы, которые следует удалить: ~!@#$%^&*(){}_+:"<>?,./;'[]-=

Я пробовал regexс [:punct:]шаблоном, но он удаляет только знаки препинания.

Вопрос 2: А как убрать символы из иностранных языков типа â í ü Â á ą ę ś ć:?

Ответ: Используйте [^[:alnum:]]для удаления ~!@#$%^&*(){}_+:"<>?,./;'[]-=и используйте [^a-zA-Z0-9]для удаления также â í ü Â á ą ę ś ćв функциях regexили regexpr.

Вам нужно использовать регулярные выражения для выявления нежелательных символов. Для наиболее легко читаемого кода вы хотите получить код str_replace_allиз stringrпакета, хотя gsubбазовый R работает так же хорошо.

Точное регулярное выражение зависит от того, что вы пытаетесь сделать. Вы можете просто удалить те конкретные символы, которые вы указали в вопросе, но гораздо проще удалить все символы пунктуации.

x <- "a1~!@#$%^&*(){}_+:\"<>?,./;'[]-=" #or whatever
str_replace_all(x, "[[:punct:]]", " ")

(Базовый R эквивалент gsub("[[:punct:]]", " ", x).)

Альтернативой является замена всех не буквенно-цифровых символов.

str_replace_all(x, "[^[:alnum:]]", " ")

Обратите внимание, что определение того, что представляет собой буква, число или знак пунктуации, немного варьируется в зависимости от вашего языка, поэтому вам, возможно, придется немного поэкспериментировать, чтобы получить именно то, что вы хотите.

Вместо использования регулярного выражения для удаления этих «сумасшедших» символов просто преобразуйте их в ASCII, который удалит акценты, но сохранит буквы.

astr <- "Ábcdêãçoàúü"
iconv(astr, from = 'UTF-8', to = 'ASCII//TRANSLIT')

что приводит к

[1] "Abcdeacoauu"

Преобразуйте специальные символы в апостроф,

Data  <- gsub("[^0-9A-Za-z///' ]","'" , Data ,ignore.case = TRUE)

Код ниже, чтобы удалить лишний апостроф

Data <- gsub("''","" , Data ,ignore.case = TRUE)

Используйте gsub(..)функцию для замены специального символа апострофом