R의 격자 배경을 채색하는 방법

이렇게하면 다음과 같은 두 가지 색상으로 평면 (격자 영역 : http://postimg.org/image/j37tz50oj/, 아래 참조, igraph 클래스 객체)을 색칠해야합니다. 왼쪽 색상 영역의 아래쪽 구석에서 시작 검은 색 등고선까지 첫 번째 색 (예 : 파란색)을 사용하고 검은 색 등고선까지 두 번째 색 (예 : 회색)으로 변경 한 다음 첫 번째 색으로 변경합니다. 이 방법으로 색상을 지정하면 검정색 가장자리로 구분 된 회색 및 파란색 영역이 나타납니다. R이 그렇게 할 수 있습니까? 어떻게 또는 무엇을 사용할 것인가? 이것에 대한R의 격자 배경을 채색하는 방법

내 코드 :

g <- graph.lattice(c(n1,n2), directed=T) 
lay <- layout.grid(g) 
V(g)$x <- lay[,1] 
V(g)$y <- lay[,2] 
V(g)$label <- paste(V(g)$x+1, V(g)$y+1, sep=",") 

torem <- c(E(g)[ V(g)[x==0] %--% V(g)[x==0] ], 
      E(g)[ V(g)[y==0] %--% V(g)[y==0] ], 
      E(g)[ V(g)[x==(n1-1)] %--% V(g)[x==(n1-1)] ], 
      E(g)[ V(g)[y==(n1-1)] %--% V(g)[y==(n1-1)] ]) 
g2 <- delete.edges(g, torem) 

g3 <- delete.vertices(g2, V(g2)[ x %in% c(0,(n1-1)) & y %in% c(0,(n1-1)) ]) 
for(i in 1:length(E(g))){ 
    E(g3)[i]$color <- ifelse((E(g3)[i]$bernoulli==0) || (E(g3)[i]$bernoulli==1)  ,ifelse((E(g3)[i]$bernoulli==0), "white", "black"), "grey") 
} 
plot(g3,layout=cbind(V(g3)$x, V(g3)$y), vertex.size=1, vertex.shape="none", vertex.color = NA, vertex.label=NA, edge.arrow.size = 0.1)

enter image description here