test=SocialMediaData["Facebook","FriendNetwork"]
test1=ToExpression[StringReplace[ToString@FullForm@test,"Graph["->"graph["]];
icondata={#[[1]],#[[2,1,2]],Import[#[[2,2,2]]]}&/@test1[[3,4,2]];
Graph@@(test1/.{test1[[3,-3,2]]->Apply[Rule,{#[[1]],
Placed[Image[#[[-1]],ImageSize->{30}],Center]}&/@icondata,{1}],test1[[3,-2,2]]->Tiny})
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～