# setup data
x <- seq(0, 50, 1)
supply <- x * -2 + 100
demand <- x * 2
df <- data.frame( x = x, supply=supply, demand=demand)
library(ggplot2)
ggplot(df, aes(x)) + 
geom_line(aes(y = supply, colour = supply))+ 
geom_line(aes(y = demand, colour = demand))
add.footnote()Run the code above in your browser using DataLab