L=c(1:19) K=c(20:38) library(scatterplot3d) scatterplot3d(data$K, data$L, data$Q1, # data main = "3D Scatter Plot with \\nK[20:38] and L[1:19]&q