Supply, demand, surplus, deadweight loss, and taxes chart in R