DC=Import["https://olgabelitskaya.github.io/huge_cities.tsv",
"Dataset", "HeaderLines" -> 1]; DC[1;;5]
PM=Normal[DC[[All,2]]];PC=Values/@Normal[DC[[All,{9,8}]]];
PS=Rescale[Normal[DC[[All,6]]],{2,4}];
TP=Table[Graphics[{ColorData["CandyColors"][i/20],
PointSize[PS[[i]]/2000],Opacity[0.5],Point[PC[[i]]],
Opacity[1],Blue,Style[Text[PM[[i]],PC[[i]]],12]}],{i,20}];
Show[TP,ImageSize->{800,500},AspectRatio->1/2,Axes->False,
GridLines->Automatic,Frame->True,PlotStyle->"CandyColors",
PlotRange->{{-160,160},{-60,60}},AspectRatio->8/5]
No comments:
Post a Comment