[igraph] plot shortest paths in one graph

[Ragia Ibrahim]

Dear members,
I got a graph 
data<-(c(0,1, 0,8, 0,9, 0,2, 1,3, 2,3, 4,5, 5,1, 6,2, 7,6))
g1 <- graph( data+1 , directed=TRUE )


and i got all shortest paths
paths<-get.all.shortest.paths( g1, 1, 4 )


the paths contain:   

[[1]]
[1] 1 3 4

[[2]]
[1] 1 2 4

HOW CAN I plot them like a graph, nodes edges between them? 
shall  i convert each list item into edge list then concatenate them ?if so how to write the parsing (reading) for?

thanks in advance
RAE