R语言绘制五角星：坐标计算与代码示例

本文将介绍使用R语言绘制五角星的方法，并提供完整的代码示例，包括计算五角星十个顶点的坐标。

五角星十个顶点的坐标计算

r = 2.568
theta <- seq(0, 2*pi, length.out = 11)[-1] + pi/2
x <- r*cos(theta)
y <- r*sin(theta)

计算结果如下：

x = c(-0.819, 1.361, -2.187, 0, 2.187, -1.361, -0.819, -1.361, 0, 1.361)
y = c(-2.356, -0.723, -0.723, 2.356, -0.723, -0.723, -2.356, 0.723, 0.723, 2.356)

R语言绘制五角星代码

r = 2.568

x <- matrix()
y <- matrix()

for ( i in 1:10){
  
if( i %% 2 == 1)
  {
    k = (i+1)/2
    x[i] <- cos((0.5 + k * 2/5) * pi)
    y[i] <- -sin((0.5 + k * 2/5) * pi) # 修改处
  }
  
else if(i %% 2 == 0)
  {
    k = i/2
    x[i] <- (r * cos((0.7 + k * 2/5 ) *pi))
    y[i] <- -(r * sin((0.7 + k * 2/5 ) *pi)) # 修改处
  }
}
# x <- (x * 6) + 9 # 将x的范围由[-1,1]变为[2.2,15]
# y <- (y * 6) + 9 # 将y的范围由[-1,1]变为[2.2,15]
# par(bg = "blue")
plot(x, y, xlab = '', ylab = '', 
     # xlim = c(0, 15),
     # ylim = c(0, 15),
     axes = T, type = "o")
polygon(x, y, col = "transparent", border = "black", lwd = 1.5) #为五角星填充颜色


text(x, y, labels= c("C", "B", "A", "J", "I", "H", "G", "F", "E", "D"), pos = 1)

将上面计算得到的x和y代入原代码中的plot和polygon函数，即可绘制出五角星。

总结

本文介绍了使用R语言绘制五角星的方法，并提供了完整的代码示例，包括计算五角星十个顶点的坐标。希望本文能够帮助您更好地理解R语言的绘图功能。