Question

我想从一组模式替换为特定的字符串。例如，这些可以是各种不同的月份名称到一个月的数值。我创建了一个字典如下（波兰语月份字符串2数值。

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

我认为这是一种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
}

Answer 2

使用{/ 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 "与8月匹配。因此，您需要使用有关这些月份名称出现的知识来改进字典。

使用R中的正则表达式模式（也许是tidyverse）查找替换全部？

2 个答案: