Question

这里的R新手可能是一个愚蠢/简单的问题。

我正在尝试使用R在向量中查找和替换＆＃34; census.new＆＃34; （基本上尝试使用R来执行excel对find / replace的操作）。但是，因为原始数据（我正在搜索的内容）与我要替换的内容部分重叠，所以我最终得到了一些时髦的结果。

我试图用2008b替换2，用2009a等替换3等。

census.new<-sub("2","2008b", census.new, fixed=TRUE)
census.new<-sub("3","2009a", census.new, fixed=TRUE)
census.new<-sub("4","2009b", census.new, fixed=TRUE)
census.new<-sub("5","2010a", census.new, fixed=TRUE)
census.new<-sub("8","2011b", census.new, fixed=TRUE)
census.new<-sub("10","2012a", census.new, fixed=TRUE)
census.new<-sub("11","2012b", census.new, fixed=TRUE)
census.new<-sub("12","2013a", census.new, fixed=TRUE)
census.new<-sub("13","2013b", census.new, fixed=TRUE)
table(census.new)

结果表是：

2002020202013babbb    2009a     2009b     202013ba00202012bbb    202013ba009a
              6268     3129      3129                    3129            3129

20202013baa         20202013bab      2020202013baaa   2020202013babb
       3129                3129                3129             3129

提前致谢！

Answer 1

您使用sub的选择因使用正则表达式而受到妨碍：例如，它正在替换＆＃34; 2＆＃34;的所有实例。 by＆＃34; 2008b＆＃34;，so＆＃34; 2012＆＃34;成为＆＃34; 2008b012008b＆＃34;。由于您随后寻找其他（类似）字符串，它会很快级联（雪球）。举个例子：

gsub('2', '2008b', c('2', '22'), fixed = TRUE)
## [1] "2008b"      "2008b2008b"

围绕它有几种方法，有些方法比其他方式更优雅。首先，我会生成一些独特的数据，因为我不确切知道你的看起来如何：

set.seed(42)
dat <- sample(as.character(c(2, 3, 4, 5, 8, 10, 11, 12, 13)),
              size = 31300, replace = TRUE)
table(dat)
## dat
##    2    3    4    5    8   10   11   12   13 
## 3577 3573 3275 3499 3453 3481 3487 3439 3516

带有正则表达式的

`sub`

到目前为止不是最佳或最佳解决方案。如果您希望/需要继续使用sub（或gsub），您应该阅读regular expressions（有许多网站和教程可用于正则表达式）。

dat1 <- sub('^2$', '2008b', dat)
dat1 <- sub('^3$', '2009a', dat1)
dat1 <- sub('^4$', '2009b', dat1)
dat1 <- sub('^5$', '2010a', dat1)
dat1 <- sub('^8$', '2011b', dat1)
dat1 <- sub('^10$', '2012a', dat1)
dat1 <- sub('^11$', '2012b', dat1)
dat1 <- sub('^12$', '2013a', dat1)
dat1 <- sub('^13$', '2013b', dat1)
table(dat1)
## dat1
## 2008b 2009a 2009b 2010a 2010b 2012a 2012b 2013a 2013b 
##  3577  3573  3275  3499  3453  3481  3487  3439  3516

您可以嵌套这些（sub('^2$', '2008b', sub('^3$', '2009a', dat))），但它不会使其更具可读性或可扩展性。它也是丑陋的（恕我直言）。

车::重新编码

此功能适用于（我推断的是）您的目的。

library(car)
dat2 <- recode(dat, "
    2 = '2008b'; 3 = '2009a'; 4 = '2009b';
    5 = '2010a'; 8 = '2011b'; 10 = '2012a';
    11 = '2012b'; 12 = '2013a'; 13 = '2013b'")
table(dat2)
## dat2
## 2008b 2009a 2009b 2010a 2011b 2012a 2012b 2013a 2013b 
##  3577  3573  3275  3499  3453  3481  3487  3439  3516 
identical(dat1, dat2)
## [1] TRUE

相对表现

car::recode的表现并不差：

library(microbenchmark)
microbenchmark(
  re = {
    dat1 <- sub('^2$', '2008b', dat)
    dat1 <- sub('^3$', '2009a', dat1)
    dat1 <- sub('^4$', '2009b', dat1)
    dat1 <- sub('^5$', '2010a', dat1)
    dat1 <- sub('^8$', '2011b', dat1)
    dat1 <- sub('^10$', '2012a', dat1)
    dat1 <- sub('^11$', '2012b', dat1)
    dat1 <- sub('^12$', '2013a', dat1)
    dat1 <- sub('^13$', '2013b', dat1)
  },
  car = {
    recode(dat, "
        2 = '2008b'; 3 = '2009a'; 4 = '2009b';
        5 = '2010a'; 8 = '2011b'; 10 = '2012a';
        11 = '2012b'; 12 = '2013a'; 13 = '2013b'")
  }, times = 50)
## Unit: milliseconds
##  expr      min       lq     mean   median       uq       max neval cld
##    re 74.44709 75.97057 78.10516 77.20569 78.43732 124.42665   100   b
##   car 23.21131 24.11697 26.08724 25.74997 26.25260  77.97541   100  a

无需反向搜索即可查找和替换

1 个答案:

`sub`

车::重新编码

相对表现