如何将“3letters+4digits”这样的变量按“3letters+1+2+4位数”分组？

Question

我想把'BLA2501‘和'BLA2561’这样的字符串重命名为‘BLA251 251’。换句话说，我的dataframe中有一个变量，它的值如下

  'BLA2501', 
  'BLA2521'.
  'BLA3601',
  'BLA5501'.

我想本地化这些值，并按“BLA+1位+2位+最后一位数”对它们进行分组。

例如

  'BLA2501' and 'BLA2521' have to be renamed as 'BLA251', 
  'BLA3601' will be 'BLA361' 
   ...

我试过

  data$var<-sub('^BLA(\\d)(\\d)(\\d)(\\d).*', 'BLA\\1\\2\\4', data$var)

但不起作用。

Answer 1

只需从最后删除第二个号码。

sub("\\d(\\d)$", "\\1", s)

或

sub("^(BLA\\d{2})\\d(\\d)", "\\1\\2", s)

Answer 2

x<-"bla2501"
paste0(substr(x,1,5),substr(x,7,7))

这就行了。