Putting an input set into LayerGraphPlot format

Question

I need to a Mathematica command that takes a set like:

{{472031, 472211}, {472031, 473012}, {472031, 472181}, {472031, 472051}, {472031, 472061}, {472031, 472132}, {472031, 472152}, {472031, 473011}, {472031, 474031}, {472031, 472111}, {472031, 473015}, {472031, 473013}, {472031, 471011}, {472031, 499021}, {472031, 491011}, {472031, 119021}, {472031, 131051}, {472051, 472031}, {472051, 473011}, {472051, 472181}, {472051, 472061}, {472051, 473012}, {472051, 472132}, {472051, 474031}}

and builds another set in LayeredGraphPlot format:

{{"472031" -> "472211"}, {"472031" -> "473012"}, {"472031" -> "472181"}, {"472031" -> "472051"}, {"472031" -> "472061"}, {"472031" -> "472132}", {"472031" -> "472152"}, {"472031" -> "473011"}, {"472031" -> "474031"}, {"472031" -> "472111"}, {"472031" -> "473015"}, {"472031" -> "473013"}, {"472031" -> "471011"}, {"472031" -> "499021"}, {"472031" -> "491011"}, {"472031" -> "119021"}, {"472031" -> "131051"}, {"472051" -> "472031"}, {"472051" -> "473011"}, {"472051" -> "472181"}, {"472051" -> "472061"}, {"472051" -> "473012"}, {"472051" -> "472132"}, {"472051" -> "474031"}}

Thank you.

Like this? {#1 -> #2} & @@@ Map[ToString@# &, a, {-1}] Where a is your list a={{...,...},{...,...}...}; — N.J.Evans, Aug 03 '16 at 16:39
Thank you Peter. Notice that the quotation marks are also needed around the integers; so that for instance {472031, 472211} becomes {"472031" -> "472211"}. — Gilmar Rodriguez Pierluissi, Aug 03 '16 at 16:52

score 2 · Accepted Answer · answered Aug 03 '16 at 17:05

To get the data exactly as you have shown it:

a={{472031, 472211}, {472031, 473012}, {472031, 472181}, {472031, 472051}, {472031, 472061}, {472031, 472132}, {472031, 472152}, {472031, 473011}, {472031, 474031}, {472031, 472111}, {472031, 473015}, {472031, 473013}, {472031, 471011}, {472031, 499021}, {472031, 491011}, {472031, 119021}, {472031, 131051}, {472051, 472031}, {472051, 473011}, {472051, 472181}, {472051, 472061}, {472051, 473012}, {472051, 472132}, {472051, 474031}};

toQuotedString[x_]:="\""<>ToString@x<>"\"";
{#1 -> #2} & @@@ Map[toQuotedString, a, {-1}]

Indeed that does the job very nicely! Now I don't have to insert quotation marks manually; thank you guys! — Gilmar Rodriguez Pierluissi, Aug 03 '16 at 17:20

Putting an input set into LayerGraphPlot format

1 Answers1

Linked