Create a planar graph from edges
PlanarGraph[{e1, e2, …}]
PlanarGraph[{v1, v2, …}, {e1, e2, …}]
PlanarGraph[{…, wi[vi], …}, {…, wj[ej], …}]
PlanarGraph[{vi -> vj, …}]
PlanarGraph[EdgeList[g]]
→ Graph[EdgeList[g], {GraphLayout -> TutteEmbedding}]PlanarGraph[{1 -> 2, 1 -> 3, 1 -> 4, 2 -> 3, 2 -> 4, 3 -> 4}]
→ Graph[<4>, <6>]PlanarGraph[{1 -> 2, 1 -> 3, 1 -> 4, 2 -> 3, 2 -> 4, 3 -> 4}, DirectedEdges -> False]
→ Graph[<4>, <6>]