Удалить все знаки препинания, кроме апострофов в R

Question

Я бы хотел использовать gsub R для удаления всех знаков препинания из текста, кроме апострофов. Я довольно плохо знаком с регулярным выражением, но учусь.

Пример:

x <- "I like %$@to*&, chew;: gum, but don't like|}{[] bubble@#^)( gum!?"
gsub("[[:punct:]]", "", as.character(x))

Токовый выход (без апострофа) * ​​1009 *

[1] "I like to chew gum but dont like bubble gum"

Желаемый результат (я хочу, чтобы апостроф не остался)

[1] "I like to chew gum but don't like bubble gum"

Answer 1

x <- "I like %$@to*&, chew;: gum, but don't like|}{[] bubble@#^)( gum!?"
gsub("[^[:alnum:][:space:]']", "", x)

[1] "I like to chew gum but don't like bubble gum"

Вышеупомянутое регулярное выражение гораздо более прямолинейно. Он заменяет все, что не является буквенно-цифровыми знаками, пробелом или апострофом (символ каретки!), Пустой строкой.

Answer 2

Вот пример:

>  gsub("(.*?)($|'|[^[:punct:]]+?)(.*?)", "\\2", x)
[1] "I like to chew gum but don't like bubble gum"

Answer 3

В основном для разнообразия, вот решение, использующее gsubfn() из потрясающего пакета с тем же именем. В этом приложении мне просто нравится, насколько красиво и выразительно это решение:

library(gsubfn)
gsubfn(pattern = "[[:punct:]]", engine = "R",
       replacement = function(x) ifelse(x == "'", "'", ""), 
       x)
[1] "I like to chew gum but don't like bubble gum"

(Аргумент engine = "R" необходим здесь, так как в противном случае будет использоваться механизм tcl по умолчанию. Его правила для сопоставления регулярных выражений немного отличаются: например, если бы он использовался для обработки приведенной выше строки, нужно было бы вместо этого set pattern = "[[:punct:]$|^]". Спасибо G. Grothendieck за указание на эту деталь.)

Answer 4

Вы можете исключить апострофы из класса POSIX punct, используя двойной минус:

[^'[:^punct:]]

Код:

x <- "I like %$@to*&, chew;: gum, but don't like|}{[] bubble@#^)( gum!?"
gsub("[^'[:^punct:]]", "", x, perl=T)

#[1] "I like to chew gum but don't like bubble gum"

ideone demo