去掉多余的空白处，在特定符号后添加空格。

Question

我有一个字符矢量，我想去掉多余的白色空间，并在后面留一个空格。; 先谢谢你

text <- "Mezgebo Gk;     Ymesel T;Tegegne G"

我累了这些

text <- gsub("\\s+"," ",text)
text <- sub(";", "; ", text)

预期成果

"Mezgebo Gk; Ymesel T; Tegegne G"

Answer 1

你可以试试下面的代码

gsub("(?<=;)(\\s+)?"," ",text,perl = TRUE)

由此可见

[1] "Mezgebo Gk; Ymesel T; Tegegne G"

Answer 2

有一个很方便的功能，专门用于删除多余的空格，而不管它在字符串中的位置。

library(tidyverse)
str_squish("Mezgebo Gk;     Ymesel T;Tegegne G")

[1] "Mezgebo Gk; Ymesel T;Tegegne G"