R:删除方程中的零项的正则表达式

Question

我有以下特征矩阵，表示线性方程组：

  > dput(eq)
  structure(c("0*x1 + 1*x2 - 1*x3   =   8", "-3*x1 + 0*x2 + 2*x3   =   -11", 
  "-2*x1 + 1*x2 + 0*x3   =   -3"), .Dim = c(3L, 1L))

那是,

> eq
     [,1]                           
[1,] "0*x1 + 1*x2 - 1*x3   =   8"   
[2,] "-3*x1 + 0*x2 + 2*x3   =   -11"
[3,] "-2*x1 + 1*x2 + 0*x3   =   -3" 

在一个函数中，我想删除表单"0*x\d"的所有术语。下面给出了我的部分理解，但忽略了最后一个方程中的"0*x3"项。有人能帮忙吗？

> gsub("0\\*x\\d [+-]", "", eq)
     [,1]                          
[1,] " 1*x2 - 1*x3   =   8"        
[2,] "-3*x1 +  2*x3   =   -11"     
[3,] "-2*x1 + 1*x2 + 0*x3   =   -3"

Answer 1

你需要像下面这样改变你的正则表达式，

gsub("0\\*x\\d\\s+[+-]|[+-]\\s+0\\*x\\d", "", eq)

#     [,1]                     
#[1,] " 1*x2 - 1*x3   =   8"   
#[2,] "-3*x1  + 2*x3   =   -11"
#[3,] "-2*x1 + 1*x2    =   -3"