plot(rnorm(100), type="l",col="Maroon")

data("Orange")
attach((Orange))
plot(Orange$age,Orange$circumference,col="orange")

plot(age,circumference, col="green", main= "Kanye")

?par
## starting httpd help server ... done
opar = par()
par(mfrow = c(2,2))
par(bg="green")
x <- 2:8
y = 2*x
#layout of sub-figures
par(bg="cornsilk")
par(mfrow=c(2,4))
opts= c("p","l","o","b","c","s","S","h")
cols=rainbow(8)
for(i in 1:length(opts)){
  title = paste("type=",opts[i])
  plot(x,y, type = "n",main="Kanye West",col = cols[i])
  lines(x,y,type=opts[i],col=cols[i])
}

x = c(1.2,3.4,1.3,-2.1,5.6,2.3,3.2,2.4,2.1,1.8,1.7,2.2,3.3,1.2)
y = c(2.4,5.7,2,0,-3,13,5,6.2,4.8,4.2,3.5,3.7,5.2,8.8)
plot(x,y,cex=1.2,pch=15,xlab="James",ylab="Combs",col="brown")

x2 <- c(4.1,1.1,-2.3,-0.2,-1.2,2.3)
y2 <- c(2.3,4.2,1.2,2.1,-2,4.3)
points(x2,y2,cex=1.2,pch=18,col="magenta")

legend(x=-2,y=12,c("sample","control"),cex=1.2,col=c("red","blue"),pch=c(5,25))

hist(rnorm(100))

hist(rnorm(100), breaks = 20, col= "yellow")

attach(Orange)
## The following objects are masked from (Orange):
## 
##     age, circumference, Tree
hist(circumference, freq = FALSE, main = "cool name")
lines(density(circumference),col="white")