Как нарисовать точки данных на точечной диаграмме, которая автоматически изменяет размер, когда пользователь увеличивает и уменьшает масштаб?

Возможный дубликат:
Сохранить размер элементов-потомков при масштабировании родительского элемента

У меня есть точечная диаграмма (изображение SVG, созданное с помощью RSVGTipsDevice) с тысячей точек, и я хочу уменьшить размер каждой точки данных, если пользователь увеличивает масштаб, чтобы разделение между точками данных увеличивалось при увеличении.

Пример точечной диаграммы SVG здесь.

РЕДАКТИРОВАТЬ: код, используемый для создания диаграммы рассеивания SVG выше

library(scatterplot3d)
library(RSVGTipsDevice)
devSVGTips(file="Test.svg", toolTipMode=1, onefile=FALSE, title="plot")
s3d<-scatterplot3d("x","y","z", xlim=c(0,10), ylim=c(0,10), zlim=c(0,10))
k<-c(1:1000)
sapply(k,function(k){setSVGShapeToolTip(title=k)
myHyperLink1<-paste("http://www.wikipedia.org/wiki/", k , sep="")
setSVGShapeURL(myHyperLink1, "_blank") 
s3d$points3d(runif(1, 0, 10),runif(1, 0, 10),runif(1, 0, 10), pch=16, cex=1, col="green")})
dev.off()