查找替换所有使用正则表达式的字典模式中R（也许tidyverse）？

Question

我想从一组模式，以特定字符串替换。例如，这些可能的month.I创建一个字典如下（波兰个月行2,2数值各种abbrewiated月份名称为数值。

dictionary<-data.frame(
  from=c("(S|s)tycz(eń|nia)|(S|s)t(y|ycz)",
         "(L|l)ut(y|ego)|(L|l)u(t)",
         "(M|m)ar(ca|zec)|(M|m)ar",
         "(K|k)wie(tnia|cień)|(K|k)wi(|e)",
         "(M|m)aj(a|)", 
         "(C|c)zerw(ca|iec)|(C|c)e(|r|rw)",
         "(L|l)ip(ca|iec)|(L|l)i(|p|c)", 
         "(S|s)ierp(nia|ień)|(S|s)i(|e|er|erp)",
         "(W|w)rze(śnia|sień)|(W|w)rz(|e)",
         "(P|p)aździernik(a|)|(P|p)a(ź|źd|źdź)",
         "(L|l)istopad(a|)|(L|l)is(|t|to|top)",
         "(G|g)rud(nia|zień)|(G|g)ru(|d)" 
  ),
  to=c(" 01 "," 02 "," 03 "," 04 "," 05 "," 06 "," 07 "," 08 "," 09 "," 10 "," 11 "," 12 ")
)

我想用它脏描述字符串从后来我想提取日期的长列。

这将是这样的：

Badanie zakończy się 28Wrze2018 

要么

Zakończenie badania 28 Września 2018 najpóźniej...

等了几千条记录

我想获得

Badanie zakończy się 28 09 2018 

是否有一个函数或tidyverse一个解决方案，会做的伎俩？到目前为止，我试过库（DataCombine），但它不工作，不看我的专栏文字有可能是一个错误。

Answer 1

使用stringr这将是

dictionary <- setNames(
  c(" 01 "," 02 "," 03 "," 04 "," 05 "," 06 "," 07 "," 08 "," 09 "," 10 "," 11 "," 12 "),
  c("(S|s)tycz(eń|nia)|(S|s)t(y|ycz)",
    "(L|l)ut(y|ego)|(L|l)u(t)",
    "(M|m)ar(ca|zec)|(M|m)ar",
    "(K|k)wie(tnia|cień)|(K|k)wi(|e)",
    "(M|m)aj(a|)", 
    "(C|c)zerw(ca|iec)|(C|c)e(|r|rw)",
    "(L|l)ip(ca|iec)|(L|l)i(|p|c)", 
    "(S|s)ierp(nia|ień)|(S|s)i(|e|er|erp)",
    "(W|w)rze(śnia|sień)|(W|w)rz(|e)",
    "(P|p)aździernik(a|)|(P|p)a(ź|źd|źdź)",
    "(L|l)istopad(a|)|(L|l)is(|t|to|top)",
    "(G|g)rud(nia|zień)|(G|g)ru(|d)" 
  )
)
str_replace_all(string, dictionary)

但是，请注意，虽然

str_replace_all("Zakończenie badania 28 Września 2018 najpóźniej...", dictionary)
# [1] "Zakończenie badania 28  09  2018 najpóźniej..."

按预期工作，我们得到

str_replace_all("Badanie zakończy się 28Wrze2018 ", dictionary)
# [1] "Badanie zakończy  08 ę 28 09 e2018 "

因为si是八月匹配。因此，你将需要提高字典使用那些月份名称的出现你的知识。

Answer 2

我想，这是你最好由一个for循环服务的情况。

convert_date <- function(x){
  dictionary<-data.frame(
    from=c("(S|s)tycz(eń|nia)|(S|s)t(y|ycz)",
           "(L|l)ut(y|ego)|(L|l)u(t)",
           "(M|m)ar(ca|zec)|(M|m)ar",
           "(K|k)wie(tnia|cień)|(K|k)wi(|e)",
           "(M|m)aj(a|)", 
           "(C|c)zerw(ca|iec)|(C|c)e(|r|rw)",
           "(L|l)ip(ca|iec)|(L|l)i(|p|c)", 
           "(S|s)ierp(nia|ień)|(S|s)i(|e|er|erp)",
           "(W|w)rze(śnia|sień)|(W|w)rz(|e)",
           "(P|p)aździernik(a|)|(P|p)a(ź|źd|źdź)",
           "(L|l)istopad(a|)|(L|l)is(|t|to|top)",
           "(G|g)rud(nia|zień)|(G|g)ru(|d)" 
    ),
    to=c(" 01 "," 02 "," 03 "," 04 "," 05 "," 06 "," 07 "," 08 "," 09 "," 10 "," 11 "," 12 "),
    stringsAsFactors = FALSE
  )

  for (i in seq_len(nrow(dictionary))){
    x <- gsub(dictionary$from[i],
              dictionary$to[i],
              x)
  }

  x
}