Practical Predictive Analytics

Plotting the dates

The individual dates and labels will be too dense to plot, so we will reduce the dates to Month/Year:

First, extract the year and month from the invoice date ( first seven characters of YYYY-MM-DD), and then obtain the counts using the table() function. Then plot the results. You can see that the last month's transactions are lower than the previous month's since the data only goes through December 9th:

par(las = 2)barplot(table(substr(InvoiceDate,1,7)), cex.lab = 1, cex.main = 1.5, cex.names = 1,  col = c("blue"),main="Invoices by Year/Month")