# 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))
addFootnote(size = .9, color = "red")
Run the code above in your browser using DataLab