Как удалить пробелы до и после @

Question

Как убрать пробел до и после @?

Например,

safety@ gmail.com / ghjv@gmail.com
gjhv_mf6 @ hotmail.com,hhty @gmail.com

желаемый результат будет:

safety@gmail.com / ghjv@gmail.com
gjhv_mf6@hotmail.com,hhty@gmail.com

Answer 1

gsub() должен сделать это.

string_vec <- c("safety@ gmail.com / ghjv@gmail.com",
            "gjhv_mf6 @ hotmail.com,hhty @gmail.com")
gsub(" *@ *","@",string_vec)

Если вы хотите удалить все пробелы (включая вкладки и т. Д.), Следуйте этому вопросу :

gsub("[[:space:]]*@[[:space:]]*", "@", string_vec) 

Answer 2

Еще один вариант - удалить лишние пробелы до и после "@".

Использование данных @BenBolker

gsub("\\s?@\\s?", "@", string_vec)
#[1] "safety@gmail.com / ghjv@gmail.com"   "gjhv_mf6@hotmail.com,hhty@gmail.com"

ИЛИ с stringr::str_replace_all

stringr::str_replace_all(string_vec, "\\s?@\\s?", "@")