How to make the function "geom_node_rect" work in a loop

[wangshiming]

g <- pathway("ko00520")
V(g)$color_1 <- colorRampPalette(RColorBrewer::brewer.pal(5,"Set1"))(length(V(g)))
V(g)$color_2 <- colorRampPalette(RColorBrewer::brewer.pal(5,"Set2"))(length(V(g)))
V(g)$color_3 <- colorRampPalette(RColorBrewer::brewer.pal(5,"PuOr"))(length(V(g)))
V(g)$color_4 <- colorRampPalette(RColorBrewer::brewer.pal(5,"Paired"))(length(V(g)))

V(g)$space <- V(g)$width/4

tem_plot = ggraph(g, x=x, y=y)
for (i in c(1:4)){
tem_plot = tem_plot + geom_node_rect(
aes(xmin= xmin + (i-1) * space,
xmax= xmin + i * space,
fill=I(get(paste0('color_', i))),
filter=type=="ortholog"))
}

tem_plot

[wangshiming]

I also tried the technique by passing '.data' variable mention by:
https://stackoverflow.com/questions/15987367/how-to-add-layers-in-ggplot-using-a-for-loop