How to implement Scatter3D using plot3D package in R?

Description

To implement the Scatter3D using plot3D package in R programming.

   R Package : plot3D

   R Function : scatter3D()

   R Function : text3D()

   R Function : points3D()

   R Function : text2D()

   R Function : scatter2D()

x, y, z -- vectors of point coordinates

colvar -- a variable used for coloring

col -- color palette used for coloringthe colvar variable

labels --the text to be written

add -- logical. If TRUE, then the points will be added to the current plot.If FALSE a new plot is started

pch -- changes point shapes

cex -- changes the size of points

Type of Box:

f -- full box

b -- default value. Only theU backpanels are visible

b2 -- back panels and grid lines arevisible

g -- grey background with white gridlines

bl -- black background

bl2 -- black background withgrey lines

u -means that the user willspecify the arguments col.axis,col.panel, lwd.panel, col.grid,lwd.grid manually

n -- no box will be drawn.This is the same as setting box = FALSE

Color Palette

col(n, alpha): generates thematlab-type colors.

This isthe default color palette usedin plot3D

col(n, alpha): similar to jet.col()but lacks the deep blue colors col(n, alpha)and gg2.col(n, alpha)generates gg-plot-like colors

col(col = c(grey, black), n,alpha): creates color schemes by

interpolation col(col = grey, alpha): creates transparent colors

Tick Marks

simple draws just an arrow parallelto the axis to indicate directionof increase

detailed draws normal ticks and labels

nticks: the number of tick marksto draw on the axes. It has no effectif ticktype =simple.

#Scatter Plot 3D
#Installing required packages
#install.packages(“plot3D”)
library(“plot3D”)

#Functions for scatter plots 3D
x<-mtcars$mpg
y<-mtcars$disp
z<-mtcars$hp

#Scatter3D
scatter3D(x,y,z,col=c(“red”,”green”,”yellow”,”blue”),add=FALSE)

#Text3D
text3D(x,y,z,labels=x,col=”red”,add=FALSE)
text3D(x,y,z,labels=x,col=”red”,add=TRUE)

#Points3D
points3D(x,y,z)

#Lines3D
lines3D(x,y,z)

#Text2D
text2D(x,y,z,col=”blue”)

#scatter2D
scatter2D(x,y,z)

#Adding title of legend
scatter3D(x,y,z, clab = “mtcars”)

#Changing color of points
scatter3D(x,y,z,colvar=NULL,col=”green”,pch=17,cex=1.5)

#Changing box type
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”b2″)
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”bl2″)
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”u”,pch=17,col.panel=26,col.grid=55,expand=0.5)

#ColorPalette
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”g”,col=gg.col(100),pch=17)
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”g”,col=ramp.col(c(“red”,”green”,”yellow”,”blue”)),pch=17)

#Changing position of legend
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”g”,col=ramp.col(c(“red”,”green”,”yellow”,”blue”)),pch=17,colkey = list(side=1,length=0.5))

#3D Viewing Direction
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”g”,col=ramp.col(c(“red”,”green”,”yellow”,”blue”)),pch=17,colkey = list(side=1,length=0.5),phi=0)
scatter3D(x,y,z,main=”Scatter3D plot”,bty=”g”,col=ramp.col(c(“red”,”green”,”yellow”,”blue”)),pch=17,colkey = list(side=1,length=0.5),theta = 20)

#Title and axis labels
scatter3D(x,y,z,main=”Scatter 3D Plot”,xlab=”mtcars$mpg”,ylab=”mtcars$disp”,zlab=”mtcars$hp”,phi=0,pch=17,cex=1.5,bty=”g”)

#Adding tickmarks
scatter3D(x,y,z,main=”Scatter 3D Plot”,xlab=”mtcars$mpg”,ylab=”mtcars$disp”,zlab=”mtcars$hp”,phi=0,pch=17,cex=1.5,bty=”g”,ticktype=”simple”)
scatter3D(x,y,z,main=”Scatter 3D Plot”,xlab=”mtcars$mpg”,ylab=”mtcars$disp”,zlab=”mtcars$hp”,phi=0,pch=17,cex=1.5,bty=”g”,ticktype=”detailed”)

#Adding text
scatter3D(x,y,z,main=”Scatter 3D Plot”,xlab=”mtcars$mpg”,ylab=”mtcars$disp”,zlab=”mtcars$hp”,phi=0,pch=17,cex=1.5,bty=”g”,ticktype=”simple”)
text3D(x,y,z,labels=rownames(mtcars),add=TRUE)

Leave Comment

Your email address will not be published. Required fields are marked *

clear formSubmit