如何删除R中的所有英语单词（特殊标点除外）

Question

I have a data file in R,

data <- "conflict need resolved :<  turned conversation exchange ideas richer environment one tricky concepts :D    conflict  always top business agendas :>  maybe different ideas opinions different :)" 

from this I want to remove all words, only the smiles will be there, and the output I am expecting,

":< :D :> :)"

Is there any library or method in R for doing this task easily?

Answer 1

You can use [[:alnum:]] as a regexp pattern for all numeric and alphanumeric characters of a string

s <- gsub("[[:alnum:]]*", "", "conflict need resolved :<  turned conversation exchange ideas richer environment one tricky concepts :D    conflict  always top business agendas :>  maybe different ideas opinions different :) ")
gsub(" +", " ", s)

[1] " :< : :> :) "