l={,,,,,,,,,,,,,,,,,,,};

distances=Table[
ImageDistance[l[[i]],l[[j]],DistanceFunction->"EarthMoverDistance"],{i,1,Length@l},{j,i+1,Length@l}];

mtemp=PadLeft[#,Length[l]]&/@distances;
distmatrix=mtemp+Transpose[mtemp];

adjmatrix=1-Unitize[Threshold[distmatrix,Quantile[Flatten[distances],1/4]]];
GraphPlot[adjmatrix,VertexRenderingFunction->(Inset[l[[#2]],#,Center,.5]&),SelfLoopStyle->None,Method->"SpringEmbedding",ImageSize->500]