Skip to content

simple graph for economics

3 messages · avanz, David Winsemius, Jess L

#
On Nov 23, 2011, at 3:28 PM, avanz wrote:

            
?plot
?polygon
It may depend on what you mean by that last bit.
David Winsemius, MD
West Hartford, CT
#
hi,

you may want to try the following, see whether you want this:

plot(NULL, xlim = c(0, 10), ylim = c(0, 8), xaxt = "n", yaxt = "n",
     main = "The Demand Curve", xlab = "", ylab = "", bty = "n")
lines(x = c(1, 8), y = c(1, 1))
lines(x = c(1, 1), y = c(1, 8))
lines(x = c(1, 7), y = c(7, 1))
lines(x = c(1, 4), y = c(4, 4))
polygon(x = c(1, 1, 4), y = c(7, 4, 4), col = "green4")
arrows(x0 = 4, y0 = 5.8, x1 = 2, y1 = 4.6, length = 0.1)
text(x = 0.5, y = 7, "Price", cex = 0.6)
text(x = 0.2, y = 4, "Market Price", cex = 0.6)
text(x = 8, y = 0.5, "Quantity", cex = 0.6)
text(x = 4, y = 6, "Consumer Surplus", cex = 0.6)

Cheers,
JL

--
View this message in context: http://r.789695.n4.nabble.com/simple-graph-for-economics-tp4101460p4102682.html
Sent from the R help mailing list archive at Nabble.com.