stringr：从字符串中删除括号和括号

Question

我想从字符串中删除括号和方括号。我得到了所需的结果，但正在寻找更紧凑的方法。

Test <- c("-0.158)", "0.426)", "1.01)", "1.6)", "2.18)", "2.77]")

stringr::str_replace(
  string = Test
  , pattern = "\\)"
  , replacement = ""
)

# [1] "-0.158" "0.426"  "1.01"   "1.6"    "2.18"   "2.77]" 
stringr::str_replace(
    string = Test
  , pattern = "\\]"
  , replacement = ""
)

# [1] "-0.158)" "0.426)"  "1.01)"   "1.6)"    "2.18)"   "2.77"  
stringr::str_replace(
  string = stringr::str_replace(
            string = Test
            , pattern = "\\]"
            , replacement = ""
          )
  , pattern = "\\)"
  , replacement = ""
)

# [1] "-0.158" "0.426"  "1.01"   "1.6"    "2.18"   "2.77" 

想知道是否可以通过类似这样的单个命令获得它

stringr::str_replace(
  string = Test
  , pattern = "\\)^]"
  , replacement = ""
)

已编辑

找到一个非常简单的解决方案

readr::parse_number(Test) 
[1] -0.158 0.426 1.010 1.600 2.180 2.770.

Answer 1

我们可以使用|

gsub("\\)|\\]", "", Test)
#[1] "-0.158" "0.426"  "1.01"   "1.6"    "2.18"   "2.77"  

或者将括号放在[]内而不是转义

gsub("[][()]", "", Test)
#[1] "-0.158" "0.426"  "1.01"   "1.6"    "2.18"   "2.77"  

---

如果我们想要提取而不是删除，请使用 gregexpr/regmatches from base R 或 str_extract from stringr 来检查数字可以以 - 开头并包含 . 的模式

library(stringr)
str_extract(Test, "-?[0-9.]+")
#[1] "-0.158" "0.426"  "1.01"   "1.6"    "2.18"   "2.77"