for makky

gistfile1.txt

library(ggplot2)

x <- seq(0,10, by = 0.1)
y <- sin(x)
z <- sin(x) + 1
xyz <- data.frame(x=x, y=y,z=z)


p <- ggplot() 
p <- p + geom_line(data = xyz, aes(x = x, y=y)) + geom_line(data = xyz, aes(x=x, y=z))
p <- p + geom_ribbon(data = subset(xyz, x >= 2.5 & x <= 3), aes(fill="blue", x = x, ymin = y, ymax = z))
p <- p + ggtitle("sin(x) ~ sin(x)+1")
p