Create 3Dchart.R