df%>% group_by(approved_date)%>% summarise(rev=sum(gmv))%>% ggplot(aes(x = approved_date, y = rev)) + geom_line() + geom_smooth(method = 'auto', se = FALSE) + labs(x = 'Date', y = 'Revenue', title = 'Revenue by Date') +...