scatterplot3d I can not make a surface graph - r

Question

I'm trying to make a surface graph but I can not do it. The graphic is not pretty and I have tried in several forums how to do and I did not succeed.
library(scatterplot3d)
x1 <- rep(10, 6)
x2 <- rep(15, 6)
x3 <- rep(20, 6)
x4 <- rep(25, 6)
x5 <- rep(30, 6)
x <- c(x1, x2, x3, x4, x5)
y1 <- rep(7, 30)
y2 <- rep(21, 30)
y3 <- rep(35, 30)
y <- c(y1, y2, y3)
z = 1781.166805 + 52.445903*y + 203.454647*x -1.570445*x*y -4.119635*(x**2)
scatterplot3d(x, y, z)
I'd highly appreciate if you help me!

Answer 1

First off, for future postings, please use the code tags to properly format your code. Secondly, your formula for z is not valid R syntax.
Lastly, I'd strongly recommend to spend some time taking the tour and learning how to ask good questions.
scatterplot3d allows you to plot a three dimensional point cloud, not a surface. Based on the (poorly formatted) data you provide, this works just fine:
library(scatterplot3d);
z <- 1781.166805 + 52.445903 * y + 203.454647 * x -1.570445 * x * y -4.119635 * x^2;
scatterplot3d(x, y, z);
Update
If you want to have a 3d surface (mesh) plot, you can use e.g. plotly:
require(plotly);
plot_ly(x = ~x, y = ~y, z = ~z, type = "mesh3d");
which produces an interactive (rotatable, zoomable) plot, a screenshot of which looks like this:
Sample data
x <- c(10, 10, 10, 10, 10, 10, 15, 15, 15, 15, 15, 15, 20, 20, 20,
20, 20, 20, 25, 25, 25, 25, 25, 25, 30, 30, 30, 30, 30, 30, 10,
10, 10, 10, 10, 10, 15, 15, 15, 15, 15, 15, 20, 20, 20, 20, 20,
20, 25, 25, 25, 25, 25, 25, 30, 30, 30, 30, 30, 30, 10, 10, 10,
10, 10, 10, 15, 15, 15, 15, 15, 15, 20, 20, 20, 20, 20, 20, 25,
25, 25, 25, 25, 25, 30, 30, 30, 30, 30, 30);
y <- c(7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 21, 21, 21, 21, 21, 21, 21, 21,
21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
21, 21, 21, 21, 21, 21, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
35, 35, 35, 35);