从字符串中删除所有以“@”开头的单词

Question

how can I remove all words that start with "@" from a string?

For example, "@AgnezMo On @AirAsia Airbus A320-216 Fleet with @NinetologyMY Livery -- 9M-AHG cc: @AgnesMonicaEnt @agnezone http://t.co/hfXwUQq2Oq "

I would like to have the string to be "On Airbus A320-216 Fleet with Livery -- 9M-AHG cc: http://t.co/hfXwUQq2Oq "

Answer 1

Try this where s is the input:

gsub("@\\w+ *", "", s)

giving:

"On Airbus A320-216 Fleet with Livery -- 9M-AHG cc: http://t.co/hfXwUQq2Oq"

Answer 2

You can use Regex with R via the sub call, as described here .

The regular expression to match those would be: @\\w+\\s+ .

Answer 3

Hi you can do like this :

xx <-  "@AgnezMo On @AirAsia Airbus A320-216 Fleet with @NinetologyMY Livery -- 9M-AHG cc: @AgnesMonicaEnt @agnezone http://t.co/hfXwUQq2Oq"
gsub("@([a-zA-Z0-9]|[_])*", "", xx)

## [1] " On  Airbus A320-216 Fleet with  Livery -- 9M-AHG cc:   http://t.co/hfXwUQq2Oq"

Answer 4

Assuming str is the string,

> gsub("@[A-Za-z]+ ", "", str)
# [1] "On Airbus A320-216 Fleet with Livery -- 9M-AHG cc: http://t.co/hfXwUQq2Oq"

Answer 5

I would use character classes with the str_replace_all function from the stringr package:

usercomment <- c("@AgnezMo On @AirAsia Airbus A320-216 Fleet with @NinetologyMY Livery -- 9M-AHG cc: @AgnesMonicaEnt @agnezone")

library(stringr)
test <- str_replace_all(usercomment,"[:punct:]","")
test

You can also string together different character classes using the or operator, so you can replace characters and space with one line. Look at this code below to modify the column names of a dataframe to clean it up:

> colnames(order_table) <- str_replace_all(colnames(order_table),"[:punct:]|[:space:]","")