Surface plot by R, data is a bit noisy