change example to minimize data processing by using ggplot2 economics data