worsteggs
library(stringr)
a <- data.frame('barcode'=c(
'TTTGTCAAGTGCTGCC-1',
'TTTGTCAAGTGCTGCC-1',
'TTTGTCACAATCGGTT-2',
'TTTGTCACAATCGGTT-2',
'TTTGTCAGTACCATCA-3',
'TTTGTCAGTACCATCA-3',
'TTTGTCAGTACTCTCC-4',
'TTTGTCAGTACTCTCC-4',
'TTTGTCAGTGGTTTCA-4',
'TTTGTCAGTGGTTTCA-4',
'TTTGTCATCAACACAC-4',
'TTTGTCATCAACACAC-4'))
a$'last_num' <- str_sub(a$'barcode', -1)
hourlist <- list('1'=0,'2'=24,'3'=36,'4'=48)
a$hours <- hourlist[a$'last_num']
是这样吗?