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

Question

可能重复：
在缩放父元素时保留后代元素的大小

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

此处为 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()