如何在@之前和之后删除空格

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)

如果您要删除所有空格（包括标签等），请遵循this question：

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?", "@")