Jak usunąć wszystkie znaki interpunkcyjne z wyjątkiem apostrofów w R?

Question

Chciałabym użyć gsub R do usunięcia wszystkich znaków interpunkcyjnych z tekstu oprócz apostrofów.

x <- "Moja ulubiona %$@to*&, restauracja fast-food;:  to KFC|}{[] i znany wszystkim@#^)( McDonald's!?"
gsub("[[:punct:]]", "", as.character(x))

Obecny wynik:

[1] "Moja ulubiona restauracja fast-food to KFC i znany wszystkim McDonalds

Pożądany wynik:

[1] "Moja ulubiona restauracja fast-food to KFC i znany wszystkim McDonald's

Macie jakiś pomysł?

Answer 1 · 5 lat temu

Spróbuj w ten sposób:

x <- "Moja ulubiona %$@to*&, restauracja fast-food;:  to KFC|}{[] i znany wszystkim@#^)( McDonald's!?"
gsub("[^[:alnum:][:space:]']", "", x)

[1] "Moja ulubiona restauracja fast-food to KFC i znany wszystkim McDonald's"