R绘制钻石并调整其宽度和高度

Question

我想使用不同的宽度和高度值来绘制菱形。

在这个简单的示例中，我想绘制三颗菱形，第一个（灰色）宽度不高，第二个（红色）宽度不高，第三个（红色）宽度不高。

我为绘图准备了一个非常简单的R代码来说明这一点。 我添加了一个矢量宽度和高度来说明我想要的。 在我的示例中， cex仅使用前三个参数来放大菱形。 是否有可能形成不同高度和宽度的钻石（也许与另一个包装一起？）？ 还是有一种简单的方法可以调整我的代码？

outfilename="diamondsize.png"
png(file=outfilename)

xCoords=c(1,2,3)
yCoords=c(1,2,3)
width=c(5,10,15)
height=c(15,10,5)
plot(xCoords,yCoords,pch=23,cex=cbind(width,height),
     bg=c("grey","red","navyblue"),xlim=c(0,4),ylim=c(0,4))
dev.off()

非常感谢你！

Answer 1

这是可以用polygon完成的示例：

x1 <- c(1,2,3,2,1)
y1 <- c(0,1,0,-1,0)

x2 <- 2*x1+4
y2 <- 5*y1
plot(c(x1,x2),c(y1,y2),type='n');
polygon(x1,y1,col=2,border=2)
polygon(x2,y2,col=3,border=3)

这将产生2颗钻石。 第二个（绿色）在横坐标上转换为4，在横坐标上放大为2，在纵坐标上放大为5。

Answer 2

这是一个品味问题，但是我会创建一个“默认钻石”对象，例如diamond <- cbind(c(-1,0,1,0),c(0,1,0,-1)) ，然后创建一个功能调整大小。

dsize<-function(x,y,diamond=diamond) { 
    diamond[,1]<-diamond[,1]*x
    diamond[,2]<-diamond[,2]*y
}

并获取输出多边形并将其绘制。