Load/Prep Data

Graph

3D Graph

#library("scatterplot3d")
#library(plot3D)

#as3d <- scatterplot3d(x = armslot$RelSide, z = armslot$RelHeight, y = armslot$Extension)

#scatterplot3d(x = armslot$RelSide, z = armslot$RelHeight, y = armslot$Extension, angle = 140)

#text3D(x = armslot$RelSide, z = armslot$RelHeight, y = armslot$Extension, labels = armslot$Pitcher)