simple R code to generate barcode index for mapping to sample name as biologists sometimes just send Well index rather than the barcode name

generate_barcode_nbd96.r.S

#Generate barcode indexes for NBD96 kit
rm(list = ls())
library(dplyr)
library(data.table)

index <- sapply(seq(1:6), function(x) paste0(LETTERS[1:8],x)) %>% t() %>% as.vector()

bc <- list()

letter_length <- 8
number_length <- 6
m <- 0
for (i in seq(1:letter_length)) {
  for (j in seq(1:number_length)) {
    m <- m + 1
    print(paste0(LETTERS[i],j))
    if (i == 1) {
      n = m
    } else {
      n = 12*(i-1) + j
    }
    print(paste0("NB",n))
    bc[[m]] <- paste0("barcode", n)
  }
}


barcode <- unlist(bc)

df <- tibble(barcode = barcode, index = index)