string - 替换字符串列表中的特殊字符和空格

Question

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

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

我想替换所有特殊字符和空格，并用“_”替换。我使用了 stringr 包中的str_replace all，如下所示:

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"