change color of your own cube with R