How to Change Vertex List in a Grid Graph

Question

I would like to actually change the vertices in a grid graph instead of simply changing the label. Ultimately, I want the vertices to be points on a plane.

So if given a simple grid graph

g = GridGraph[{2,2},VertexLabels -> "Name"]

How can I change the vertex 1 to be {0,0}, 2 to be {0,1}, 3 to be {1,0}, and 4 to be {1,1}, so that

VertexList[g] = {{0,0},{0,1},{1,0},{1,1}}?

Answer 1

You cand use VertexReplace to replace each vertex with its coordinates or any other values.

g = GridGraph[{2, 3}, VertexLabels -> "Name"];
VertexReplace[g, Thread[VertexList[g] -> GraphEmbedding[g]]]

Answer 2

ClearAll[vReplace]
vReplace  = VertexReplace[g, v_ :> Floor @ GraphEmbedding[g][[v]] - 1]  (* or *)
vReplace =  VertexReplace[#, v_ :> 
  QuotientRemainder[v - 1, First["Dimension" /. Last[GraphLayout /. Options[#]]]]] &;

Examples:

{r, c} = {2, 2};
g = GridGraph[{r, c}, VertexLabels -> "Name", ImagePadding -> 30, ImageSize -> 300];
Row[{g, vReplace @ g}] 

With {r, c} = {3, 5} we get

And with {r, c} = {5, 3} we get

Update: Building the grid graph from scratch:

gridGraph[{r_, c_}, o : OptionsPattern[]] := 
 Module[{v = QuotientRemainder[# - 1, r] & /@ Range[r c], e}, 
  e = If[ManhattanDistance @@ # == 1, UndirectedEdge @@ #, ## &[]] & /@ Subsets[v, {2}];
  Graph[v, v, VertexCoordinates -> Thread[v-> v], o]]

Example:

gridGraph[{5, 6}, VertexLabels -> "Name", ImagePadding -> 25, ImageSize -> 500]

Answer 3

Graph[{
  Labeled[1, "{0,0}"], 
  Labeled[2, "{0,1}"], 
  Labeled[3, "{1,0}"], 
  Labeled[4, "{1,1}"]}, 
  {1 <-> 2, 1 <-> 3, 3 <-> 4, 2 <-> 4},
 VertexCoordinates -> {{0, 0}, {1, 0}, {0, 1}, {1, 1}}]

Answer 4

Update: Use NearestNeighborGraph with exact coordinates.

gridGraph[dims_, opt : OptionsPattern[]] := 
 NearestNeighborGraph[Tuples[Range /@ dims], opt]

gridGraph[{3, 2}, VertexLabels -> "Name"]

---

Old answer:

Assuming that you don't just want to change the label that is displayed, but actually change the vertex name, you can do this:

Look at in which order GridGraph numbers vertices, generate the corresponding desired names with Tuple, and finally replace the integers with the desired names.

In[]:= g = GridGraph[{2, 3}, VertexLabels -> "Name"]

In[]:= names = Tuples[{Range[3], Range[2]}]
Out[]= {{1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}

In[]:= rules = Thread[Range@Length[names] -> names]
Out[]= {1 -> {1, 1}, 2 -> {1, 2}, 3 -> {2, 1}, 4 -> {2, 2}, 5 -> {3, 1}, 6 -> {3, 2}}

In[]:= Graph[
 VertexList[g] /. rules, EdgeList[g] /. rules,
 VertexLabels -> "Name"
 ]