#5, First Floor, 4th Street , Dr. Subbarayan Nagar Kodambakkam, Chennai-600 024 pro@slogix.in

Office Address

  • #5, First Floor, 4th Street Dr. Subbarayan Nagar Kodambakkam, Chennai-600 024 Landmark : Samiyar Madam
  • pro@slogix.in
  • +91- 81240 01111

Social List

How to implement Scatter3D using plot3D package in R?
Description

To implement the Scatter3D using plot3D package in R programming.

Process

   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 coloring the 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 back panels are visible

b2 -- back panels and grid lines are visible

g -- grey background with white grid lines

bl -- black background

bl2 -- black background with grey lines

u -means that the user will specify 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 the matlab-type colors.

This is the default color palette used in 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 parallel to the axis to indicate direction of increase

detailed draws normal ticks and labels

nticks: the number of tick marks to draw on the axes. It has no effect if ticktype =simple.

Sapmle Code

#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)

Screenshots