Question

12. Plot the data against time when the ticket was bought library (ggplot2) train.dataSdt - a3. POSIXct (train.dataDatetime, format="3d-Im-SY SH:1M") train.order <- train.data[order (as.Date (train.datasat, format="1d/m/YY")).] #Plot of Sale over time ggplot (data=train.order, aes (x=dt, y=Count)) + geom_path(colour="blue") + ylab ("Count of Tickets Sold") + xlab ("Date") + ggtitle("Ticket Sales Over Time") + theme (plot. title = element_text (hjust - 0.5)) Ticket Sales Over Time