ggplot text

Tooth <- ToothGrowth %>% setDT()
Tooth[ , `:=`(dose=as.factor(dose))]

boxP <- Tooth %>% ggplot(aes(x=dose, y=len)) + geom_boxplot(aes(color=dose)) +
  				scale_color_manual(values=c("red", "green", "blue"))

scatterP  <- cars %>% ggplot(aes(speed, dist)) + geom_point()

fl <- nycflights13::flights
dd <- with(fl, data.table(daytime=make_datetime(year, month, day, hour, minute, 0),
					                value= sched_arr_time))
dd <- dd[order(daytime), ][,value:=mean(value), by=daytime]
delayP <- dd[1:500,] %>% ggplot(aes(daytime, value)) + geom_path() + geom_point() 

passenger <- tsbox::ts_dt(AirPassengers)
timeP <- passenger %>% ggplot(aes(time, value)) + geom_path()

crimes <- USArrests %>% setDT(keep.rownames=T)
crimesP <- crimes %>% ggplot(aes(x=UrbanPop, y=Murder)) + geom_point()

scatterP  <- cars %>% ggplot(aes(speed, dist)) + geom_point()