Rのアルファベット間の数字を置き換える正規表現

Question

Rの正規表現を検索して、アルファベット2文字の間の数字を置き換えます。たとえば、次のように、mで3を置き換える：

• Sa3pleはSample

• Sample1.3 3は、アルファベットの文字の間ではありませんので、Sample1.3

  • この言葉は同じstatysままになっ

3をmに置き換えるために、以下のRコードで試しましたが、部分的にしか動作しません。

1つの問題は、正規表現が一致する場合、一致する行を置換するのではなく、最初の行を置換するたびにcol3になることです。確かに、正確に何が失われていますか。

df$col3[grep('[a-zA-Z][3][a-zA-Z]|[3][a-zA-Z]',df$col3)] <- gsub('[3]+', 'm', df$col3) 

Answer 1

正規表現は難しいです

pos <- "Sa3ple" 
neg <- "Sample1.3" 

gsub("([a-zA-z])\\d([a-zA-z])", "\\1m\\2", pos) 
"Sample" 

gsub("([a-zA-z])\\d([a-zA-z])", "\\1m\\2", neg) 
"Sample1.3" 

説明

(...) is group, which is referenced with \\1, \\2, etc 
[a-zA-Z] is lower and uppercase letter (only 1) 
\\d is any digit (add + or {2}) to identify more than 1 digit 

私は