在r中的数据列中添加符号

Question

我有一个数据集，我想根据三条规则添加引号：

1. 在任何=
2. 在任意之后(以及任意之前(添加引号
3. 在任意之前和之后添加引号

例如

Input ->   (Ten + Four = Fourteen, Two - One = 1)
Output ->  "("Ten + Four"="Fourteen", "Two - One"="1")"

我一定是过度设计了这个，想知道是否有人在垒r上有一个好技巧？

Answer 1

你可以使用gsub并嵌套它。由于你想要base，我为你做了一个嵌套。有关更优雅的方法，您可以在这里查看

foo <- c( "i = 2", "i , 2", " ( i 2 )")
#insert "="
foo2 <- gsub('=', '"="', foo)
#insert ","
foo2 <- gsub(',', '","', foo2) 
#insert "( and )"
foo2 <- gsub('\)', '"\)', foo2)
foo2 <- gsub('\(', '\("', foo2)
#same expression but nested.
foo2<- gsub('=', '"="', gsub(',', '","', gsub('\(', '\("', gsub('\)', '"\)', foo))))

输出：

cat(foo2)

i "=" 2   i "," 2    (" i 2 ")

---

修正案：

若您通过控制台进行输出，则会得到"作为"的输出。这基本上是一样的。控制台向您显示本例中的源代码。

'"' == '"'