$ 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))
If you have found my website useful, please consider buying me a coffee below 😉