3D density plot

Plotly

library(plotly)
mydata <- read.csv("~/Dropbox/Public/Blog statisfaction/data/density_plot.txt")
df = as.data.frame(mydata)
plot_ly(df, x = Y, y = X, z = Z, group = X, type = "scatter3d", mode = "lines")