如何用R形成等边三角形？

Question

我想绘制2个等边三角形。一个颠倒，另一个颠倒。 这是我的代码：

 ord<-c(1,3,5)
 ord1<-c(2,4,6) 

 x1<-x[ord]
 y1<-y[ord]
 x2<-x[ord1]
 y2<-y[ord1]

 lines(x1,y1,col="blue")
 lines(x2,y2,col="blue")

然而，我无法得到完整三角形的数字。我只得到每个三角形的两边。我究竟做错了什么？

Answer 1

行将从第一个coord绘制到第二个，第二个到第三个，等等。如果你想让它回到第一个点，只需在最后复制它：

ord <- c(1,3,5,1)
ord1 <- c(2,4,6,2)

让它回到第一点。

Answer 2

使用第三个点位于第一个和第二个点之间，角度为pi / 3的事实，你可以这样做：

angle=pi/3
x <- c(0,0.5,0.5*cos(angle),0)
y <- c(0,0,sin(angle),0)
y1 <- c(0,0,-sin(angle),0)

plot(-1:1,-1:1,type='n')
polygon(x=x,y=y,col='red')      ## you can replace polygon by lines here 
polygon(x=x,y=y1,col='green')