I have this data
> dput(head(data[,c(3,14)])) structure(list(Sample = c("LP6008334-DNA_A03", "LP6008334-DNA_A03", "LP6008334-DNA_