data(docnet)
subcomp1 = igraph::decompose.graph(docnet)[[2]]
subcomp2 = only_first_match(subcomp1)
igraph::get.data.frame(subcomp1)
igraph::get.data.frame(subcomp2)
graphics::par(mfrow=c(2,1))
document_network_plot(subcomp1, main='All matches')
document_network_plot(subcomp2, main='Only first match')
graphics::par(mfrow=c(1,1))
Run the code above in your browser using DataLab