Visualizing discounted cashflows in R