如何使用gsub和regex来识别和删除连续的符号？

Question

我有一列包含这样的值：

structure(list(col1 = c(" |  |  |  |  |  |  |  |", "|  |  |  |  |  |  |  |  |  |  |  |  |  |             |", 
"|  |  |  |  |  |  |  |  |  |  |  |  |  |  | ", "stop|", "stop| | ", 
"stop | go")), class = "data.frame", row.names = c(NA, -6L))

我希望能够删除 | 的所有迭代，当它们连续出现时，或者如果它们显示为 | | 或 | | |。

目前，我正在尝试找出管道的所有迭代，但它们似乎有点随机。我想知道是否有办法确保我的迭代涵盖以下实例：

1. 当连续出现多个|时
2. 当连续出现多个|并带有多个空格时（例如| |或| | |
3. 当|位于行尾时（例如，\\|$

   但是，我会保留stop | go 之间的管道。

   这是我现在正在使用的代码，但它删除了stop | go 中的管道。

   df$col1 <- gsub('[\\| ]{2,}|[\\|$]', '', df$col1)
   

   我想删除所有 | 符号，除了 stop | go 中的符号。

Answer 1

也许这行得通

trimws(trimws(gsub('(\|\s+){2,}', "", df$col1),
 whitespace = "\s+\|"), whitespace = "\|")

-输出

[1] ""          ""          ""          "stop"      "stop"      "stop | go"

Answer 2

你可以这样做：

gsub('\|\s*\||\|\s*$', '', df$col1)
#> [1] "       "                   "                         "
#> [3] "              "            "stop"                     
#> [5] "stop "                     "stop | go"

还有一个简单的trimws，如果你不想要留下的空间。