IT and Business Application lab : Assignment 10

Topic:
3D plotting in R
Assignment:1

Create 3 vectors, x, y, z and choose any random values for them, ensuring they are of equal length, bind them together.Create 3 dimensional plots of the same

Commands :
> Random1<-rnorm(30,mean=0,sd=1)
> Random1
> x<-Random1[1:10]
> x
> y<-Random1[11:20]
> y
> z<-Random1[21:30]
> z
> T<-cbind(x,y,z)
> T
> plot3d(T[,1:3])

 

> plot3d(T[,1:3],col=rainbow(64))

 



> plot3d(T[,1:3],col=rainbow(64),type= 's')

 

Screenshots:

 

Assignment no:2

Choose 2 random variables

Create 3 plots:

1. X-Y

2. X-Y|Z (introducing a variable z and cbind it to z and y with 5 diff categories)

3. Color code and draw the graph

4. Smooth and best fit line for the curve

Commands :
> x<-rnorm(200,mean=5,sd=1)
> y<-rnorm(200,mean=3,sd=1)
> z1<-sample(letters,5)
> z2<-sample(z1,200,replace=TRUE)
> z<-as.factor(z2)
> t<-cbind(x,y,z)
> qplot(x,y)

 

 

> qplot(x,z,alpha=I(2/10))

 

 

> qplot(x,z)

 

 

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

 

 

> qplot(x,y,colour=z)

 

> qplot(log(x),log(y),colour=z)

 

Screenshots: