Thanks Jim. It works almost exactly like I wanted, I only had to make shape
size variable:

points(sandwich1,cex=sandwich1$p)

Best regards,
Artur

	[[alternative HTML version deleted]]

