![Interactive plots
# Create some linked plots
library(iplots)
attach(iris)
ihist(Sepal.Length) # histogram
ibar(Species) # barchart
iplot(Sepal.Length, Sepal.Width) # scatter plot
ibox(iris[,1:4]) # boxplots
Note: Click on any graph and see how they are related to each other.
Mr. S. B. Adnaik (Ph.D., Statistics)](https://image.slidesharecdn.com/interactiveand3dscatterplot-161218153703/85/Interactive-and-3-d-scatterplot-2-320.jpg)
![Scatterplot 3D
# 3D Scatterplot
library(scatterplot3d)
attach(iris)
scatterplot3d(iris[,1:3], main="3D Scatterplot")
Mr. S. B. Adnaik (Ph.D., Statistics)](https://image.slidesharecdn.com/interactiveand3dscatterplot-161218153703/85/Interactive-and-3-d-scatterplot-5-320.jpg)
![Scatterplot 3D...
# 3D Scatterplot with Coloring and Vertical Drop Lines
library(scatterplot3d)
attach(iris)
scatterplot3d(iris[,1:3], pch=16, highlight.3d=TRUE,
type="h", main="3D Scatterplot")
Mr. S. B. Adnaik (Ph.D., Statistics)](https://image.slidesharecdn.com/interactiveand3dscatterplot-161218153703/85/Interactive-and-3-d-scatterplot-6-320.jpg)
![Scatterplot 3D...
# 3D Scatterplot with Coloring and Vertical Lines and Regression Plane
library(scatterplot3d)
attach(iris)
s3d <-scatterplot3d(iris[,1:3], pch=16, highlight.3d=TRUE,
type="h", main="3D Scatterplot")
fit <- lm(Sepal.Width~Petal.Length+Petal.Width)
s3d$plane3d(fit)
Mr. S. B. Adnaik (Ph.D., Statistics)](https://image.slidesharecdn.com/interactiveand3dscatterplot-161218153703/85/Interactive-and-3-d-scatterplot-7-320.jpg)
Interactive and 3 d scatterplot
- 1. Interactive and 3D Scatterplot in R Mr. S. B. Adnaik (Ph.D., Statistics)
- 2. Interactive plots # Create some linked plots library(iplots) attach(iris) ihist(Sepal.Length) # histogram ibar(Species) # barchart iplot(Sepal.Length, Sepal.Width) # scatter plot ibox(iris[,1:4]) # boxplots Note: Click on any graph and see how they are related to each other. Mr. S. B. Adnaik (Ph.D., Statistics)
- 3. Interactive plots... Mr. S. B. Adnaik (Ph.D., Statistics)
- 4. Interactive plots... # Interacting with a scatterplot attach(iris) plot(Sepal.Length, Sepal.Width) # scatterplot identify(Sepal.Length, Sepal.Width, labels=row.names(iris)) # identify points Note: Click on points to Get its location (row no.) Click ‘stop’ to exit. Mr. S. B. Adnaik (Ph.D., Statistics)
- 5. Scatterplot 3D # 3D Scatterplot library(scatterplot3d) attach(iris) scatterplot3d(iris[,1:3], main="3D Scatterplot") Mr. S. B. Adnaik (Ph.D., Statistics)
- 6. Scatterplot 3D... # 3D Scatterplot with Coloring and Vertical Drop Lines library(scatterplot3d) attach(iris) scatterplot3d(iris[,1:3], pch=16, highlight.3d=TRUE, type="h", main="3D Scatterplot") Mr. S. B. Adnaik (Ph.D., Statistics)
- 7. Scatterplot 3D... # 3D Scatterplot with Coloring and Vertical Lines and Regression Plane library(scatterplot3d) attach(iris) s3d <-scatterplot3d(iris[,1:3], pch=16, highlight.3d=TRUE, type="h", main="3D Scatterplot") fit <- lm(Sepal.Width~Petal.Length+Petal.Width) s3d$plane3d(fit) Mr. S. B. Adnaik (Ph.D., Statistics)
- 8. Mr. S. B. Adnaik (Ph.D., Statistics)