在数字和特殊字符条件 R 之间添加一个空格

Question

我正在尝试使用 stringr 或 R 基本调用来有条件地为大向量中的实例添加一个空格，其中有一个数值然后是一个特殊字符 - 在这种情况下是 $没有空格的符号。 str_pad 似乎不允许参考向量。

例如，对于：

$6.88$7.34

我想在最后一个数字之后和下一个美元符号之前添加一个空格：

$6.88 $7.34

谢谢！

Answer 1

如果只有一个实例，则使用sub分别捕获数字和$，并在替换中添加捕获组的反向引用之间的空格

sub("([0-9])([$])", "\\1 \\2", v1)
#[1] "$6.88 $7.34"

---

或使用正则表达式环视

gsub("(?<=[0-9])(?=[$])", " ", v1, perl = TRUE)

数据

v1 <- "$6.88$7.34"

Answer 2

如果您使用矢量字符串，这将起作用：

mystring<-as.vector('$6.88$7.34 $8.34$4.31')

gsub("(?<=\\d)\\$", " $", mystring, perl=T)

[1] "$6.88 $7.34 $8.34 $4.31"

这也包括已经有空间的情况。

关于 cmets 中提出的问题：

mystring2<-as.vector('Regular_Distribution_Type† Income Only" "Distribution_Rate 5.34%" "Distribution_Amount $0.0295" "Distribution_Frequency Monthly')

gsub("(?<=[[:alpha:]])\\s(?=[[:alpha:]]+)", "_", mystring2, perl=T)

[1] "Regular_Distribution_Type<U+2020> Income_Only\" \"Distribution_Rate 5.34%\" \"Distribution_Amount $0.0295\" \"Distribution_Frequency_Monthly"

请注意，\ 由于向量中的嵌套引号而出现，不应有所作为。由于编码特殊字符，还会出现<U+2020>。

正则表达式解释：

(?<=[[:alpha:]]) 这第一部分是由?<= 创建的积极的后视，这基本上是在我们试图匹配的任何东西的后面，以确保我们在后视中定义的东西在那里。在这种情况下，我们正在寻找与字母字符匹配的[[:alpha:]]。

然后我们用\s检查空格，在R中我们必须使用双重转义所以\\s，这就是我们想要匹配的。

最后我们使用(?=[[:alpha:]]+)，这是一个由?= 定义的正向前瞻，它会检查以确保我们的匹配后面跟着另一个字母，如上所述。

逻辑是在字母之间找一个空格，匹配空格，然后用gsub替换，换成_

查看所有正则表达式here