blocks|key|3306819|text|下面是一个向gsub发出两个调用的解决方案|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3306820|dataset[,author.col]+<-+gsub('([%5E\\s])&','\\1\\s&',+dataset[,author.col])
dataset[,author.col]+<-+gsub('&([%5E\\s])','&\\s\\1',+dataset[,author.col])|code-block|syntax|javascript|3306821|entityMap^0|6|4|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

Here is a solution which makes two calls to <code>gsub</code>:

<pre><code>dataset[,author.col] &lt;- gsub('([^\\s])&amp;','\\1\\s&amp;', dataset[,author.col])
dataset[,author.col] &lt;- gsub('&amp;([^\\s])','&amp;\\s\\1', dataset[,author.col])
</code></pre>

blocks|key|3306888|text|下面是一种仅使用sub的方法|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3306889|sub("\\b(?=&)%7C(?<=&)\\b",+"+",++v1,+perl+=+TRUE)
#[1]+"Smith+&+Banks"+"Smith+&+Banks"|code-block|syntax|javascript|3306890|3306891|使用具有更多组合的数据。在上面的文章中，我只考虑了操作员帖子中显示的选项。|3306892|+gsub("\\s*(?=&)%7C(?<=&)\\s*",+"+",+data,+perl+=+TRUE)
+#[1]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"

+gsub("\\s*&%2B%7C\\&%2B\\s*",+"+&+",+data1)
+#[1]+"Smith+&++Banks"+"Smith+&+Banks"++"Smith+&+Banks"++
+#[4]"Smith+&+Banks"++"Smith+&+Banks"++"Smith+&++Banks"+"Smith+&+Banks"+|3306893|或使用strsplit|3306894|sapply(strsplit(data1,+"\\s*&%2B\\s*"),+paste,+collapse+=+"+&+")
#[1]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+
#[5]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"|3306895|从本质上讲，如果有很多模式，strsplit方法会更好。|3306896|数据|3306897|v1+<-+c("Smith&+Banks",+"Smith+&Banks")
data+=+c("Smith&+Banks",+"Smith+&Banks",+"Smith+&+Banks",+
+++++"Smith+&+++++Banks",+"Smith&Banks")
data1+<-+c(v1,+"Smith&&+Banks",+"Smith+&&+Banks",+"Smith&&Banks")|3306898|entityMap^0|8|3|0|0|0|0|0|3|8|0|0|E|8|0|0|0^^$0|@$1|2|3|4|5|6|7|11|8|@$9|12|A|13|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|14|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|15|8|@]|D|@]|E|$]]|$1|L|3|M|5|6|7|16|8|@]|D|@]|E|$]]|$1|N|3|O|5|H|7|17|8|@]|D|@]|E|$I|J]]|$1|P|3|Q|5|6|7|18|8|@$9|19|A|1A|B|C]]|D|@]|E|$]]|$1|R|3|S|5|H|7|1B|8|@]|D|@]|E|$I|J]]|$1|T|3|U|5|6|7|1C|8|@$9|1D|A|1E|B|C]]|D|@]|E|$]]|$1|V|3|W|5|6|7|1F|8|@]|D|@]|E|$]]|$1|X|3|Y|5|H|7|1G|8|@]|D|@]|E|$I|J]]|$1|Z|3|-4|5|6|7|1H|8|@]|D|@]|E|$]]]|10|$]]

Here is an approach using only <code>sub</code>
<pre><code>sub(&quot;\\b(?=&amp;)|(?&lt;=&amp;)\\b&quot;, &quot; &quot;, v1, perl = TRUE)
#[1] &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot;
</code></pre>
<hr />
Using data with more combinations. In the above, I only considered the options showed in the OP's post.
<pre><code> gsub(&quot;\\s*(?=&amp;)|(?&lt;=&amp;)\\s*&quot;, &quot; &quot;, data, perl = TRUE)
 #[1] &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot;

 gsub(&quot;\\s*&amp;+|\\&amp;+\\s*&quot;, &quot; &amp; &quot;, data1)
 #[1] &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; 
 #[4]&quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; 
</code></pre>
Or with <code>strsplit</code>
<pre><code>sapply(strsplit(data1, &quot;\\s*&amp;+\\s*&quot;), paste, collapse = &quot; &amp; &quot;)
#[1] &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; 
#[5] &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot; &quot;Smith &amp; Banks&quot;
</code></pre>
In essence, the <code>strsplit</code> method was found to be better if there are many patterns.
<h3>data</h3>
<pre><code>v1 &lt;- c(&quot;Smith&amp; Banks&quot;, &quot;Smith &amp;Banks&quot;)
data = c(&quot;Smith&amp; Banks&quot;, &quot;Smith &amp;Banks&quot;, &quot;Smith &amp; Banks&quot;, 
 &quot;Smith &amp; Banks&quot;, &quot;Smith&amp;Banks&quot;)
data1 &lt;- c(v1, &quot;Smith&amp;&amp; Banks&quot;, &quot;Smith &amp;&amp; Banks&quot;, &quot;Smith&amp;&amp;Banks&quot;)
</code></pre>

blocks|key|1097149|text|这是另一种gsub方法：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1097150|#+some+test+cases
authors+<-+c("Smith&+Banks",+"Smith+++&Banks",+"Smith&Banks",+"Smith+&+Banks")
gsub("\\s*&\\s*",+"+&+",+authors)
#[1]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"|code-block|syntax|javascript|1097151|1097152|一些更多的测试用例(超过2个作者，单个作者)：|1097153|authors+<-+c("Smith&+Banks",+"Smith+++&Banks+&Nash",+"Smith&Banks",+"Smith+&+Banks",+"Smith")
gsub("\\s*&\\s*",+"+&+",+authors)
#[1]+"Smith+&+Banks"++++++++"Smith+&+Banks+&+Nash"+"Smith+&+Banks"++++++++"Smith+&+Banks"++++++++"Smith"|1097154|正如OP在对他们的问题的评论中指出的那样，数据中不会出现两个作者之间的多个与号。|1097155|entityMap^0|5|4|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|T|8|@$9|U|A|V|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|W|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|X|8|@]|D|@]|E|$]]|$1|L|3|M|5|6|7|Y|8|@]|D|@]|E|$]]|$1|N|3|O|5|H|7|Z|8|@]|D|@]|E|$I|J]]|$1|P|3|Q|5|6|7|10|8|@]|D|@]|E|$]]|$1|R|3|-4|5|6|7|11|8|@]|D|@]|E|$]]]|S|$]]

Here's another <code>gsub</code> approach:

<pre><code># some test cases
authors &lt;- c("Smith&amp; Banks", "Smith &amp;Banks", "Smith&amp;Banks", "Smith &amp; Banks")
gsub("\\s*&amp;\\s*", " &amp; ", authors)
#[1] "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks"
</code></pre>

<hr>

Some more test cases (more than 2 authors, single authors):

<pre><code>authors &lt;- c("Smith&amp; Banks", "Smith &amp;Banks &amp;Nash", "Smith&amp;Banks", "Smith &amp; Banks", "Smith")
gsub("\\s*&amp;\\s*", " &amp; ", authors)
#[1] "Smith &amp; Banks" "Smith &amp; Banks &amp; Nash" "Smith &amp; Banks" "Smith &amp; Banks" "Smith"
</code></pre>

As OP noted in the comments to their question, multiple ampersands between two authors do not occur in the data.

blocks|key|4774833|text|使用stringi的过度杀伤力|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|4774834|v+<-+c("Smith+&+Banks",+"Smith&+Banks",+"Smith+&Banks",+"Smith&Banks",+"Smith+Banks")

library(stringi)
#create+an+index+of+entries+containing+"&"
indx+<-+grepl("&",+v)
#subset+"v"+using+that+index
amp++<-+v[indx]
#perform+the+transformation+on+that+subset+and+combine+the+result+with+the+rest+of+"v"
c(sapply(stri_extract_all_words(amp),+
+++++++++function(x)+{+paste0(x,+collapse+=+"+&+")+}),+v[!indx])|code-block|syntax|javascript|4774835|这就给出了：|4774836|#[1]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+Banks"+|4774837|entityMap^0|2|7|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|U|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|V|8|@]|D|@]|E|$I|J]]|$1|O|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|P|$]]

An overkill way using <code>stringi</code>:

<pre><code>v &lt;- c("Smith &amp; Banks", "Smith&amp; Banks", "Smith &amp;Banks", "Smith&amp;Banks", "Smith Banks")

library(stringi)
#create an index of entries containing "&amp;"
indx &lt;- grepl("&amp;", v)
#subset "v" using that index
amp &lt;- v[indx]
#perform the transformation on that subset and combine the result with the rest of "v"
c(sapply(stri_extract_all_words(amp), 
 function(x) { paste0(x, collapse = " &amp; ") }), v[!indx])
</code></pre>

Which gives:

<pre><code>#[1] "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks" "Smith Banks" 
</code></pre>

blocks|key|3306943|text|data+=+c("Smith&+Banks",+"Smith+&Banks",+"Smith+&+Banks",+
+++++++++"Smith+&+++++Banks",+"Smith&Banks")

#+Take+the+0+or+more+spaces+before+and+after+the+ampersand,+replace+that+by+"+&+""
gsub("[+]*&[+]*",+"+&+",+data)+
#+[1]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|3306944|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>data = c("Smith&amp; Banks", "Smith &amp;Banks", "Smith &amp; Banks", 
 "Smith &amp; Banks", "Smith&amp;Banks")

# Take the 0 or more spaces before and after the ampersand, replace that by " &amp; ""
gsub("[ ]*&amp;[ ]*", " &amp; ", data) 
# [1] "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks"
</code></pre>

blocks|key|3306950|text|也可以试试这个：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3306951|gsub("([%5E&+]%2B)\\W%2B([%5E&]%2B)","\\1+&+\\2",authors)
[1]+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"+"Smith+&+Banks"|code-block|syntax|javascript|3306952|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Also try this:

<pre><code>gsub("([^&amp; ]+)\\W+([^&amp;]+)","\\1 &amp; \\2",authors)
[1] "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks" "Smith &amp; Banks"
</code></pre>

first post on stackoverflow and hopefully the first of many. 

I am cleaning up a dataset containing a list of authors in one of its columns. When there are multiple authors, these are separated by ampersands eg. Smith &amp; Banks. However, the spacing is not always consistent eg. Smith&amp; Banks, Smith &amp;Banks. 

To solve the issue, I have tried:

<pre><code> gsub('\\S&amp;','\\S &amp;', dataset[,author.col])
</code></pre>

This gives Smith&amp; Banks -> SmitS &amp; Banks. How can I get -> Smith &amp; Banks?

gsub - adding whitespace before/after & character

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

stackoverflow上的第一篇文章，希望也是众多文章中的第一篇。我正在清理一个数据集，该数据集的一个列中包含作者列表。当有多个作者时，这些作者之间用&符号分隔，例如。Smith & Banks。然而，间距并不总是一致的，例如。Smith & Banks，Smith &Banks。为了解决这个问题，我尝试了：   ...

问gsub -在字符之前/之后添加空格
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问gsub -在字符之前/之后添加空格EN