# Random bipartite graph
inc <- matrix(sample(0:1, 50, replace=TRUE, prob=c(2,1)), 10, 5)
g <- graph.incidence(inc)
plot(g, layout=layout.bipartite,
vertex.color=c("green","cyan")[V(g)$type+1])
# Two columns
lay <- layout.bipartite(g)
plot(g, layout=lay[,2:1])
Run the code above in your browser using DataLab