Exercises 2 with Graph Data & 3D Geometry Data

GraphPlot[RandomGraph[WattsStrogatzGraphDistribution[3971,
0.001,3]],EdgeStyle->Opacity[.1],
EdgeShapeFunction->"Line",VertexStyle->Opacity[.3],
VertexCoordinates->ExampleData[{"Geometry3D",
"Galleon"},"VertexData"],ImageSize->700]