GSub序列在R中的累积应用

Question

我正在做一个关于象棋游戏的项目。在对数据进行一些处理之后，我需要得到一个特定位置的芬(https://en.wikipedia.org/wiki/Forsyth–Edwards_Notation)符号。我已经写好了每块FEN编码的代码，但是我很难对代表未被占据的连续方块的数量的字符进行编码。

例如，以以下FEN代码为例：

"rnbq1rk1/pppp1ppp/1b11pn11/11111111/11PP1111/11111NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2"

每个1代表棋盘内一个未被占用的方块。例如：11111111告诉我们棋盘内的这一行没有被棋子占据。

问题是，使用FEN作为输入来绘制棋盘的R包不喜欢这种表示法，它们想要更悬、更原始的表示法，其中所有的< code>1都由一个字符表示:所有这些连续的< code>1的总和。

"rnbq1rk1/pppp1ppp/1b2pn2/8/2PP4/5NP1/PP2PPBP/RNBQ1RK1 w KQkq c6 0 2"

请注意，例如，1111111序列被8替换，所有连续 序列的总和

我曾尝试使用mapply和gsub来完成替换，但它一次迭代一个应用模式替换对的字符串。结果如下：

法典：

pattern <- c("11111111","1111111","111111","111111","1111","111","11")
replacement <- c("8","7","6","5","4","3","2")
FENCodeToBeChanged  <-  "rnbq1rk1/pppp1ppp/1b11pn11/11111111/11PP1111/11111NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2"
mapply(gsub,pattern,replacement,FENCodeToBeChanged)

结果：

                                                                              11111111 
  "rnbq1rk1/pppp1ppp/1b11pn11/8/11PP1111/11111NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2" 
                                                                           1111111 
 "rnbq1rk1/pppp1ppp/1b11pn11/71/11PP1111/11111NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2" 
                                                                            111111 
"rnbq1rk1/pppp1ppp/1b11pn11/611/11PP1111/11111NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2" 
                                                                            111111 
"rnbq1rk1/pppp1ppp/1b11pn11/511/11PP1111/11111NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2" 
                                                                              1111 
       "rnbq1rk1/pppp1ppp/1b11pn11/44/11PP4/41NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2" 
                                                                               111 
   "rnbq1rk1/pppp1ppp/1b11pn11/3311/11PP31/311NP1/PP11PPBP/RNBQ1RK1 w KQkq c6 0 2" 
                                                                                11 
       "rnbq1rk1/pppp1ppp/1b2pn2/2222/2PP22/221NP1/PP2PPBP/RNBQ1RK1 w KQkq c6 0 2"

正如您所看到的，它一次只做一个替换，对于下一个模式替换对，它从原始字符串开始，它不会按照我在模式替换向量中指定的顺序累积它们。

我已经尝试了这里和这里描述的策略，但它们也没有奏效。正如它在最后一个链接中提到的，我试图不惜一切代价避免循环 gsubs 来完成工作，因为它似乎效率很低。

对如何进行有什么想法吗？

谢谢！

Answer 1

m申请的问题是它正在为每个替换查看FEN字符串的新副本，这不是您需要的。我认为您可以使用Reduce心态：

（顺便说一句，你的“5”模式有6个1，这就解决了这个问题。）

pattern <- c("11111111","1111111","111111","11111","1111","111","11")
Reduce(function(txt, ptn) gsub(ptn, as.character(nchar(ptn)), txt), pattern, init=FENCodeToBeChanged)
# [1] "rnbq1rk1/pppp1ppp/1b2pn2/8/2PP4/5NP1/PP2PPBP/RNBQ1RK1 w KQkq c6 0 2"

能够减少多个参数需要一点工作，通常沿着成对列表或类似的列表迭代。有了这个问题，很容易用它的长度替换模式，而不是包含另一个字符串向量ergonchar（ptn）。（从技术上讲，as.character（.）不是必需的，因为gsub会隐式转换它，但我想有点“声明性”，因为这就是我想要的。R中有许多工具以这种方式不太确定（例如，ifelse）。风格。）