R programming error Plot error - Col red

Question

I'm trying to draw a plot in R:

Here's my code:

g<- function(x,y)
  + x**2+y**2-3*x+y+2
gb<- function(x) g(x[1],x[2])
x <- seq(-2,2,len=51)
y <- seq(-2,2,len=51)
gz<-outer(x,y,g)
contour(x,y,gz)
polygon(c(0,0,1),c(1,2,1))

The above code works fine but when I try to add color to my plot using the following code:

 g<- function(x,y)
  + x**2+y**2-3*x+y+2
gb<- function(x) g(x[1],x[2])
x <- seq(-2,2,len=51)
y <- seq(-2,2,len=51)
gz<-outer(x,y,g)
contour(x,y,gz)
polygon(c(0,0,1),c(1,2,1),
        + col="red",
        +density=c(30,40))

I get this error:

Error: unexpected '=' in:
"polygon(c(0,0,1),c(1,2,1),
        + col="

Answer 1

Fix this line:

polygon(c(0,0,1),c(1,2,1), col="red", density=c(30,40))