R – ggplot example

$ 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 😉