sure, thanks.
head(tb, 10)[, c('week','Pango lineage','weekDate')]
dput(head(tb, 5)[c('week','Pango lineage','weekDate')])
library(ggplot2)
df<- data.frame(week = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1),
Pango lineage = c(B.1.1, B.1, B.1, B.1, B.1, B.1, B.1, B.1, B.1.439, B.1),
weekDate=c(2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30, 2020-03-30),
stringsAsFactors=FALSE
)