Mathematica画图练习 图元绘图

代码：

data=Partition[StringSplit["A01 A 146 739 1 A02 A 146 735 0 A03 A 142 710 0 A04 A 146 723 0 A05 A 134 740 0 B01 B 200 662 1 B02 B 217 674 0 B03 B 213 694 0 B04 B 201 632 0 B05 B 213 675 0 B06 B 226 688 0 C01 C 108 834 1 C02 C 117 862 0 C03 C 132 802 0 C04 C 112 913 0 C05 C 80 809 0 D01 D 343 753 1 D02 D 354 787 0 D03 D 361 767 0 D04 D 344 783 0 D05 D 308 774 0
D06 D 328 769 0 E01 E 526 815 1 E02 E 494 826 0 E03 E 532 814 0 E04 E 533 808 0 E05 E 547 819 0 E06 E 592 817 0 E07 E 577 816 0 E08 E 599 812 0 F01 F 834 813 1 F02 F 811 820 0 F03 F 823 806 0 F04 F 800 818 0 F05 F 875 750 0 F06 F 849 845 0 F07 F 872 828 0 F08 F 834 783 0 F09 F 832 777 0"],5];
data[[;;,3]][e-mail][[;;,3]];
data[[;;,4]][e-mail][[;;,4]];
Graphics[Join[
{PointSize[Large]},
Riffle[{Red,Orange,Yellow,Green,Blue,Purple},Point[#]&/@TakeList[data[[;;,{3,4}]],{5,6,5,6,8,9}]],
{Black,Point[{{183,165},{515,111},{777,221}}]},
Circle[#,79]&/@Cases[data,{__,"1"}][[;;,{3,4}]]
],
Frame->True
]