Question: pointplot change symbolsize for each point

Am I using map correctly here?  And is this a good way to vary the size of points for a set of data?

a:=[[1,1,1],[2,2,1],[3,4,4.5],[2,1,2.4]]

b:=map(a->[a[1],a[2]],a)

c:=ListTools[Flatten](map(a->[a[3]],a))

d:=seq(pointplot(b[i],symbolsize=c[i]*10),i=1..nops(b))

display(d);

                               

 

Please Wait...