Part of project: Slinky Projects

A friend of mine in economics gave me some Matlab code to make 3d plots for one of his paper and I instantly thought that Matlab, as a language, was horrendous. Note, I still greatly appreciate it as a software package since I relied heavily on it for my undergrad and masters theses (those 500+ lines of code to solve some PDEs seems like gibberish now).

Anyhow, rather than deciphering it and to make it work on my machine (disclaimer: Matlab via a virtual machine took like 10 minutes to open so I gave up), I decided it would be must faster to use R. Apparently, the result looks the same, the lines of R code is seems slightly less, and the code is easier to understand and play with.

There are numerous packages in R to do surface plots. You can do interactive 3d plots with plotly, plot3D which is an extension of the base persp function or lattice which is another extension of R’s base graphics capabilities. I decided to go with lattice since I never used it before.

The dataset is some random economics data which I have no clue about. I just know that there is an x, y, z1, and z2 axis. After reading in the data, we can plot with the following snippet.

``````library(lattice)
library(gridExtra)

trellis.par.set("axis.line", list(col=NA,lty=1,lwd=1))
jobsat_plot <- wireframe(z1 ~ x*y, data=some_economics_data,
xlab = "custom X label",
ylab = "custom y label",
main = "Jobsat",
drape = TRUE,
colorkey = TRUE,
scales = list(arrows=FALSE,cex=.5, tick.number = 10, z = list(arrows=F), distance =c(1.5, 1.5, 1.5)),
light.source = c(10,0,10),
col.regions = rainbow(100, s = 1, v = 1, start = 0, end = max(1,100 - 1)/100, alpha = .8),
screen = list(z = -60, x = -60)
)
``````

Surface plots with lattice can be done with the `wireframe` function. The first line after loading the package is to remove the border around the plot. Everything else is pretty explanatory. The option `drape` is a boolean to drape the plot or not, the `colorkey` is another boolean which determines if you want a key showing the density on the side. `scales` is used to create the ticks. Note, if `arrows` is set to true, then you have no ticks. I like how we can easily determine the margin between the axis label with a `distance option`. You can play around with the aesthetics with `light.source` and `col.region`. I decided to go with the typical rainbow color to better show the depths. You can pass a list of colors you want if you need to customize.

One final note is that I decided to use the `grid.arrange` function from the package `gridExtra` to print side-by-side plot. I think you go with the usual pars option to do the same thing but this one-liner is much neater.

``````grid.arrange(jobsat_plot, orgpractices_plot, ncol=2, clip=TRUE)
``````