how to create concentric layout for bipartite graph












1















I have a bipartite graph like this where I want one attribute on the outer circle and other attribute either on the inner circle or simply within the outer circle.



enter image description here



According to this question Bioconductor can do something like that, but I don't know how customisable are the fonts etc. Any other methods to create concentric layout for bipartite graph?










share|improve this question





























    1















    I have a bipartite graph like this where I want one attribute on the outer circle and other attribute either on the inner circle or simply within the outer circle.



    enter image description here



    According to this question Bioconductor can do something like that, but I don't know how customisable are the fonts etc. Any other methods to create concentric layout for bipartite graph?










    share|improve this question



























      1












      1








      1








      I have a bipartite graph like this where I want one attribute on the outer circle and other attribute either on the inner circle or simply within the outer circle.



      enter image description here



      According to this question Bioconductor can do something like that, but I don't know how customisable are the fonts etc. Any other methods to create concentric layout for bipartite graph?










      share|improve this question
















      I have a bipartite graph like this where I want one attribute on the outer circle and other attribute either on the inner circle or simply within the outer circle.



      enter image description here



      According to this question Bioconductor can do something like that, but I don't know how customisable are the fonts etc. Any other methods to create concentric layout for bipartite graph?







      r layout graph igraph bioconductor






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 20 '18 at 4:52









      alistaire

      31.8k43765




      31.8k43765










      asked Nov 20 '18 at 4:36









      santokusantoku

      1,01411530




      1,01411530
























          1 Answer
          1






          active

          oldest

          votes


















          0














          igraph has a bipartite layout that tries to minimize edge crossings. You could run this layout, extract the coordinates, then wrap them around a circle.



          I am not experienced enough with R to be able to afford the time to show you how this is done with the R interface. But I can show you what it would look like when you're done, using the Mathematica interface of igraph.



          << IGraphM`

          IGraph/M 0.3.103 (November 13, 2018)

          Evaluate IGDocumentation to get started.


          Generate a sparse random bipartite graph, take its largest connected component, and run the layout. If the graph is not sparse, it won't be possible to avoid edges passing through the middle of the circle.



          IGSeedRandom[4];
          bg = IGGiantComponent@IGBipartiteGameGNM[100, 100, 220];
          bg = IGLayoutBipartite[bg, "BipartitePartitions" -> IGBipartitePartitions[bg]]


          enter image description here



          Extract the coordinates, and wrap them around two circles.



          pts = GraphEmbedding[bg]; (* get vertex coordinates *)

          {m1, m2} = Max /@ Values@GroupBy[pts, First -> Last]; (* find max coordinate for both vertex groups *)

          newPts = If[#1 == -1,
          2 {Cos[#2/m1 2 Pi], Sin[#2/m1 2 Pi]},
          3 {Cos[#2/m2 2 Pi], Sin[#2/m2 2 Pi]}
          ] & @@@ pts; (* wrap both groups around a circle *)

          Graph[VertexList[bg], EdgeList[bg], VertexCoordinates -> newPts]


          enter image description here



          The above uses a circle radius ratio of 3:2. The bigger the radius ratio, the fewer edges cross the inner circle. Here's a plot with a ratio of 3:1.



          enter image description here






          share|improve this answer

























            Your Answer






            StackExchange.ifUsing("editor", function () {
            StackExchange.using("externalEditor", function () {
            StackExchange.using("snippets", function () {
            StackExchange.snippets.init();
            });
            });
            }, "code-snippets");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "1"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53386314%2fhow-to-create-concentric-layout-for-bipartite-graph%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            igraph has a bipartite layout that tries to minimize edge crossings. You could run this layout, extract the coordinates, then wrap them around a circle.



            I am not experienced enough with R to be able to afford the time to show you how this is done with the R interface. But I can show you what it would look like when you're done, using the Mathematica interface of igraph.



            << IGraphM`

            IGraph/M 0.3.103 (November 13, 2018)

            Evaluate IGDocumentation to get started.


            Generate a sparse random bipartite graph, take its largest connected component, and run the layout. If the graph is not sparse, it won't be possible to avoid edges passing through the middle of the circle.



            IGSeedRandom[4];
            bg = IGGiantComponent@IGBipartiteGameGNM[100, 100, 220];
            bg = IGLayoutBipartite[bg, "BipartitePartitions" -> IGBipartitePartitions[bg]]


            enter image description here



            Extract the coordinates, and wrap them around two circles.



            pts = GraphEmbedding[bg]; (* get vertex coordinates *)

            {m1, m2} = Max /@ Values@GroupBy[pts, First -> Last]; (* find max coordinate for both vertex groups *)

            newPts = If[#1 == -1,
            2 {Cos[#2/m1 2 Pi], Sin[#2/m1 2 Pi]},
            3 {Cos[#2/m2 2 Pi], Sin[#2/m2 2 Pi]}
            ] & @@@ pts; (* wrap both groups around a circle *)

            Graph[VertexList[bg], EdgeList[bg], VertexCoordinates -> newPts]


            enter image description here



            The above uses a circle radius ratio of 3:2. The bigger the radius ratio, the fewer edges cross the inner circle. Here's a plot with a ratio of 3:1.



            enter image description here






            share|improve this answer






























              0














              igraph has a bipartite layout that tries to minimize edge crossings. You could run this layout, extract the coordinates, then wrap them around a circle.



              I am not experienced enough with R to be able to afford the time to show you how this is done with the R interface. But I can show you what it would look like when you're done, using the Mathematica interface of igraph.



              << IGraphM`

              IGraph/M 0.3.103 (November 13, 2018)

              Evaluate IGDocumentation to get started.


              Generate a sparse random bipartite graph, take its largest connected component, and run the layout. If the graph is not sparse, it won't be possible to avoid edges passing through the middle of the circle.



              IGSeedRandom[4];
              bg = IGGiantComponent@IGBipartiteGameGNM[100, 100, 220];
              bg = IGLayoutBipartite[bg, "BipartitePartitions" -> IGBipartitePartitions[bg]]


              enter image description here



              Extract the coordinates, and wrap them around two circles.



              pts = GraphEmbedding[bg]; (* get vertex coordinates *)

              {m1, m2} = Max /@ Values@GroupBy[pts, First -> Last]; (* find max coordinate for both vertex groups *)

              newPts = If[#1 == -1,
              2 {Cos[#2/m1 2 Pi], Sin[#2/m1 2 Pi]},
              3 {Cos[#2/m2 2 Pi], Sin[#2/m2 2 Pi]}
              ] & @@@ pts; (* wrap both groups around a circle *)

              Graph[VertexList[bg], EdgeList[bg], VertexCoordinates -> newPts]


              enter image description here



              The above uses a circle radius ratio of 3:2. The bigger the radius ratio, the fewer edges cross the inner circle. Here's a plot with a ratio of 3:1.



              enter image description here






              share|improve this answer




























                0












                0








                0







                igraph has a bipartite layout that tries to minimize edge crossings. You could run this layout, extract the coordinates, then wrap them around a circle.



                I am not experienced enough with R to be able to afford the time to show you how this is done with the R interface. But I can show you what it would look like when you're done, using the Mathematica interface of igraph.



                << IGraphM`

                IGraph/M 0.3.103 (November 13, 2018)

                Evaluate IGDocumentation to get started.


                Generate a sparse random bipartite graph, take its largest connected component, and run the layout. If the graph is not sparse, it won't be possible to avoid edges passing through the middle of the circle.



                IGSeedRandom[4];
                bg = IGGiantComponent@IGBipartiteGameGNM[100, 100, 220];
                bg = IGLayoutBipartite[bg, "BipartitePartitions" -> IGBipartitePartitions[bg]]


                enter image description here



                Extract the coordinates, and wrap them around two circles.



                pts = GraphEmbedding[bg]; (* get vertex coordinates *)

                {m1, m2} = Max /@ Values@GroupBy[pts, First -> Last]; (* find max coordinate for both vertex groups *)

                newPts = If[#1 == -1,
                2 {Cos[#2/m1 2 Pi], Sin[#2/m1 2 Pi]},
                3 {Cos[#2/m2 2 Pi], Sin[#2/m2 2 Pi]}
                ] & @@@ pts; (* wrap both groups around a circle *)

                Graph[VertexList[bg], EdgeList[bg], VertexCoordinates -> newPts]


                enter image description here



                The above uses a circle radius ratio of 3:2. The bigger the radius ratio, the fewer edges cross the inner circle. Here's a plot with a ratio of 3:1.



                enter image description here






                share|improve this answer















                igraph has a bipartite layout that tries to minimize edge crossings. You could run this layout, extract the coordinates, then wrap them around a circle.



                I am not experienced enough with R to be able to afford the time to show you how this is done with the R interface. But I can show you what it would look like when you're done, using the Mathematica interface of igraph.



                << IGraphM`

                IGraph/M 0.3.103 (November 13, 2018)

                Evaluate IGDocumentation to get started.


                Generate a sparse random bipartite graph, take its largest connected component, and run the layout. If the graph is not sparse, it won't be possible to avoid edges passing through the middle of the circle.



                IGSeedRandom[4];
                bg = IGGiantComponent@IGBipartiteGameGNM[100, 100, 220];
                bg = IGLayoutBipartite[bg, "BipartitePartitions" -> IGBipartitePartitions[bg]]


                enter image description here



                Extract the coordinates, and wrap them around two circles.



                pts = GraphEmbedding[bg]; (* get vertex coordinates *)

                {m1, m2} = Max /@ Values@GroupBy[pts, First -> Last]; (* find max coordinate for both vertex groups *)

                newPts = If[#1 == -1,
                2 {Cos[#2/m1 2 Pi], Sin[#2/m1 2 Pi]},
                3 {Cos[#2/m2 2 Pi], Sin[#2/m2 2 Pi]}
                ] & @@@ pts; (* wrap both groups around a circle *)

                Graph[VertexList[bg], EdgeList[bg], VertexCoordinates -> newPts]


                enter image description here



                The above uses a circle radius ratio of 3:2. The bigger the radius ratio, the fewer edges cross the inner circle. Here's a plot with a ratio of 3:1.



                enter image description here







                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited Nov 20 '18 at 16:19

























                answered Nov 20 '18 at 16:13









                SzabolcsSzabolcs

                16.1k361143




                16.1k361143






























                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53386314%2fhow-to-create-concentric-layout-for-bipartite-graph%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    How to send String Array data to Server using php in android

                    Title Spacing in Bjornstrup Chapter, Removing Chapter Number From Contents

                    Is anime1.com a legal site for watching anime?