替换特殊字符以及字符串列表中的空格

Question

我有这样的字符串的字符向量:

x <- c("weather is good_today","it. will rain tomorrow","do not* get_angry")

我想替换所有特殊字符和空格,并用"_"替换它们.我用str_replace all从stringr package这样的:

x1 <- str_replace_all(x,"[[:punct:]]","_")
x2 <- str_replace_all(x1,"\\s+","_")

但这可以在一个命令中完成,我可以得到这样的输出:

x
[1]"weather_is_good_today"
[2]"it_will_rain_tomorrow"
[3]"do_not_get_angry"

谢谢你的帮助.

Answer 1

 gsub('([[:punct:]])|\\s+','_',x)

"weather_is_good_today"  "it__will_rain_tomorrow" "do_not__get_angry" 

Answer 2

尝试这个 。

x1 <- str_replace_all(x,"[[:punct:]\\\s]+","_")

我没有 R 方面的知识，我根据Wiki检查的正则表达式建议了答案