R语言绘制五角星

1.采用简单的连线

n <- seq(1,11,2) #R语言环境
x <- sin(0.4*n*pi)
y <- cos(0.4*n*pi)
plot(x,y,type = 'l',xlim = c(-1,1),ylim = c(-1,1),xlab="", ylab="", axes=F)

 

2. 采用长短轴的点的拼接

# 给定一些初始的值
r <- sin(0.1*pi) / cos(0.2*pi)  #五角星短轴的长度
x <- matrix()
y <- matrix()
for ( i in 1:12){
  if( i %% 2 == 1)
  { k = (i+1)/2
  x[i] <- cos((0.5 + k * 0.4) * pi)
  y[i] <- sin((0.5 + k * 0.4) * pi)
  }
  else if(i %% 2 == 0)
  {
    k = i/2
    x[i] <- (r * cos((0.7 + k * 0.4 ) *pi))
    y[i] <- (r * sin((0.7 + k * 0.4 ) *pi))
  }
}
# 注意polygon函数画图好像必须先有一个plot函数
plot(x,y,type='l', xlab = '', ylab = '', xlim =c(-1,1), ylim = c(