如何用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

线将从第一坐标绘制到第二，第二至第三等，如果你想让它回到第一点，只是重复它在最后：

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')