how to filter out small subgraphs in R












1















suppose I have a network like this with multiple subgraphs.



How can I only keep the subgraph with the most number of vertices while removing the rest? In this case I want to keep the subgraph on the left and remove the 3-vertices one the lower right. Thanks!



enter image description here






r graph igraph







share|improve this question


















  • 1





    Photoshop or Gimp would be my first attempt. Or perhaps magick convert 5IABB.png -crop 800x830-0-0 out.png :-)

    – r2evans
    Nov 20 '18 at 3:33


















1















suppose I have a network like this with multiple subgraphs.



How can I only keep the subgraph with the most number of vertices while removing the rest? In this case I want to keep the subgraph on the left and remove the 3-vertices one the lower right. Thanks!



enter image description here






r graph igraph







share|improve this question


















  • 1





    Photoshop or Gimp would be my first attempt. Or perhaps magick convert 5IABB.png -crop 800x830-0-0 out.png :-)

    – r2evans
    Nov 20 '18 at 3:33
















1












1








1








suppose I have a network like this with multiple subgraphs.



How can I only keep the subgraph with the most number of vertices while removing the rest? In this case I want to keep the subgraph on the left and remove the 3-vertices one the lower right. Thanks!



enter image description here






r graph igraph







share|improve this question














suppose I have a network like this with multiple subgraphs.



How can I only keep the subgraph with the most number of vertices while removing the rest? In this case I want to keep the subgraph on the left and remove the 3-vertices one the lower right. Thanks!



enter image description here






r graph igraph




r graph igraph






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked Nov 20 '18 at 3:12









santokusantoku

98011529




98011529








  • 1





    Photoshop or Gimp would be my first attempt. Or perhaps magick convert 5IABB.png -crop 800x830-0-0 out.png :-)

    – r2evans
    Nov 20 '18 at 3:33
















  • 1





    Photoshop or Gimp would be my first attempt. Or perhaps magick convert 5IABB.png -crop 800x830-0-0 out.png :-)

    – r2evans
    Nov 20 '18 at 3:33










1




1





Photoshop or Gimp would be my first attempt. Or perhaps magick convert 5IABB.png -crop 800x830-0-0 out.png :-)

– r2evans
Nov 20 '18 at 3:33







Photoshop or Gimp would be my first attempt. Or perhaps magick convert 5IABB.png -crop 800x830-0-0 out.png :-)

– r2evans
Nov 20 '18 at 3:33














1 Answer
1






active

oldest

votes


















4














Given



set.seed(1)

g <- sample_gnp(20, 1 / 20)

plot(g)


enter image description here



we wish to keep the subgraph with 6 vertices. Using



(clu <- components(g))

# $membership

#  [1]  1  2  3  4  5  4  5  5  6  7  8  9 10  3  5 11  5  3 12  5



# $csize

#  [1] 1 1 3 2 6 1 1 1 1 1 1 1



# $no

# [1] 12

gMax <- induced_subgraph(g, V(g)[clu$membership == which.max(clu$csize)])


we then get



plot(gMax)


enter image description here



This assumes that there is a single largest connected subgraph. Otherwise the "first" one will be chosen.






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%2f53385668%2fhow-to-filter-out-small-subgraphs-in-r%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









    4














    Given



    set.seed(1)
    
g <- sample_gnp(20, 1 / 20)
    
plot(g)


    enter image description here



    we wish to keep the subgraph with 6 vertices. Using



    (clu <- components(g))
    
# $membership
    
#  [1]  1  2  3  4  5  4  5  5  6  7  8  9 10  3  5 11  5  3 12  5
    

    
# $csize
    
#  [1] 1 1 3 2 6 1 1 1 1 1 1 1
    

    
# $no
    
# [1] 12
    
gMax <- induced_subgraph(g, V(g)[clu$membership == which.max(clu$csize)])


    we then get



    plot(gMax)


    enter image description here



    This assumes that there is a single largest connected subgraph. Otherwise the "first" one will be chosen.






    share|improve this answer




























      4














      Given



      set.seed(1)
      
g <- sample_gnp(20, 1 / 20)
      
plot(g)


      enter image description here



      we wish to keep the subgraph with 6 vertices. Using



      (clu <- components(g))
      
# $membership
      
#  [1]  1  2  3  4  5  4  5  5  6  7  8  9 10  3  5 11  5  3 12  5
      

      
# $csize
      
#  [1] 1 1 3 2 6 1 1 1 1 1 1 1
      

      
# $no
      
# [1] 12
      
gMax <- induced_subgraph(g, V(g)[clu$membership == which.max(clu$csize)])


      we then get



      plot(gMax)


      enter image description here



      This assumes that there is a single largest connected subgraph. Otherwise the "first" one will be chosen.






      share|improve this answer


























        4












        4








        4







        Given



        set.seed(1)
        
g <- sample_gnp(20, 1 / 20)
        
plot(g)


        enter image description here



        we wish to keep the subgraph with 6 vertices. Using



        (clu <- components(g))
        
# $membership
        
#  [1]  1  2  3  4  5  4  5  5  6  7  8  9 10  3  5 11  5  3 12  5
        

        
# $csize
        
#  [1] 1 1 3 2 6 1 1 1 1 1 1 1
        

        
# $no
        
# [1] 12
        
gMax <- induced_subgraph(g, V(g)[clu$membership == which.max(clu$csize)])


        we then get



        plot(gMax)


        enter image description here



        This assumes that there is a single largest connected subgraph. Otherwise the "first" one will be chosen.






        share|improve this answer













        Given



        set.seed(1)
        
g <- sample_gnp(20, 1 / 20)
        
plot(g)


        enter image description here



        we wish to keep the subgraph with 6 vertices. Using



        (clu <- components(g))
        
# $membership
        
#  [1]  1  2  3  4  5  4  5  5  6  7  8  9 10  3  5 11  5  3 12  5
        

        
# $csize
        
#  [1] 1 1 3 2 6 1 1 1 1 1 1 1
        

        
# $no
        
# [1] 12
        
gMax <- induced_subgraph(g, V(g)[clu$membership == which.max(clu$csize)])


        we then get



        plot(gMax)


        enter image description here



        This assumes that there is a single largest connected subgraph. Otherwise the "first" one will be chosen.







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 20 '18 at 3:29









        Julius VainoraJulius Vainora

        34.2k76079




        34.2k76079






























            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%2f53385668%2fhow-to-filter-out-small-subgraphs-in-r%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

            MongoDB - Not Authorized To Execute Command

            Image
            .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 0 I have successfully enabled authorization on MongoDB and I have created an account on the admin database and then I created an account for my database called test. The following connection string to connect to my test database works successfully: mongo --host 192.168.17.52 --port 27017 -u user1 -p password --authenticationDatabase test Only problem I have now is, I cannot execute commands such as: show dbs. I get the following error when I try to do so: "errmsg" : "not authorized on admin to execute command { listDatabases: 1.0, lsid: { id: UUID("a1d5bc0d-bc58-485e-b232-270758a89455") }, $db: "admin...
            Read more

            How to fix TextFormField cause rebuild widget in Flutter

            Image
            .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 0 I've got the same issue at #9280. I tried all solutions from that topic with/without GlobalKey for Scaffold and Form but the problem wasn't fixed. I tried to build a authentication form with login and signup. But the keyboard doesn't show when I tap the TextFormField at the first time. Then I try to input some letter from physical keyboard, the widget is rebuilt. Like this: login screen Nothing to be log when I run flutter run --verbose, so I logged manually. Every tapping on field, the widget called dispose -> init -> build. [√] Flutter (Channel beta, v1.0.0, on Microsoft Windows [Version 10.0.17763.195], ...
            Read more

            Npm cannot find a required file even through it is in the searched directory

            Image
            up vote 0 down vote favorite I got that error: users-Air:pdfuploader user$ npm run start client@0.1.0 start /Users/user/Documents/pdfuploader react-scripts start Could not find a required file. Name: index.html Searched in: /Users/user/Documents/pdfuploader/public npm ERR! code ELIFECYCLE npm ERR! errno 1 npm ERR! client@0.1.0 start: `react-scripts start` npm ERR! Exit status 1 npm ERR! npm ERR! Failed at the client@0.1.0 start script. npm ERR! This is probably not a problem with npm. There is likely additional logging output above. npm ERR! A complete log of this run can be found in: npm ERR! /Users/user/.npm/_logs/2018-11-19T10_19_14_555Z-debug.log users-Air:pdfuploader user$ And the file is in /Users/user/Documents/pdfuploader/public as you can see in my github repository: https://github.c...
            Read more