Question

我想重命名像＆＃39; BLA2501＆＃39;和＆＃39; BLA2561＆＃39;进入＆＃39; BLA251＆＃39;。换句话说，我的数据框中有一个变量，其值为

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

我希望将这些值进行本地化，并按照＆＃39; BLA +第一位数字+第二位数字+最后一位数字＆＃39;进行分组。

例如

  '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))

这就是诀窍。