$ head dl.csv
time,code,count
6:59,200,31
7:00,200,1841
7:00,502,3644
7:01,200,369
> x<-read.csv("dl.csv")
> library(dplyr)
> library(tidyverse)
> ggplot(x,aes(time,count,color=code))+geom_point()+scale_x_discrete(breaks = levels(x$time)[c(T, rep(F, 5))])+theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
