x <- c(1:3)

y <- x # create some data

par(pch=19, col="red") #plotting symbol and colour.

par(mfrow=c(2,4)) #all plots on one page.

ops =c("p","l","o","b","c","s","S","h")

for(i in 1:length(ops))
{
    heading = paste("type",ops[i])
    plot(x,y, type="n", main=heading)
    lines(x, y, type[i])
}