mesh=AdjacencyGraph[ExampleData[{"Matrix","HB/blckhole"},"Matrix"],VertexShapeFunction->None,EdgeShapeFunction->(Line[#]&),GraphLayout->"SpectralEmbedding"]

Short[FindGraphPartition[mesh,4]]

HighlightGraph[mesh,Subgraph[mesh,#]& /@ %, GraphHighlightStyle->"DehighlightHide"]