如何在散点图中绘制数据点，在用户放大和缩小时自动重新调整大小？

Question

  

可能重复：
  Preserve descendant elements' size while scaling the parent element

我有一个散点图（使用RSVGTipsDevice创建的SVG图像）有一千个点，如果用户放大，我想减小每个数据点的大小，以便在放大时数据点之间的分离增加。

示例SVG散点图here。

编辑：用于创建上述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()