IT Lab Session 10

1)

plot3d(T)

 

plot3d(T, col=rainbow(1000))

 

plot3d(T, col=rainbow(1000), type='s')

 

2)

 x<-rnorm(100,50,15)
 y<-rnorm(100,70,20)
 Colours<-c("B","G","R","Y","P")
 z<-sample(Colours,100,replace=TRUE)
 T<-cbind(x,y,z)

qplot(x,y)

 

qplot(x,y,alpha=I(1/20))

qplot(x,y,colour=z)

qplot(x,y,geom=c("point","smooth"))