G <- completegraph(LETTERS[1:4])
LG <- linegraph(G, sep = "++")
ng.lg <- ng_graph("3d transition", LG, "++", "fruchtermanReingold" )
plot(ng.lg)
## If you have the Rgraphviz package working, plot graph object of class graph
library(Rgraphviz)
plot(LG)Run the code above in your browser using DataLab