R语言绘图技巧：将图形E置于最顶点

使用R语言将图形E置于最顶点

以下代码展示了如何在R语言中绘制五角星图形，并将点E放置在最顶点位置。

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', 'D', 'E'), pos = 1)

只需将最后一行代码修改为：

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

即可将图形E放置在最上面的顶点位置。

通过修改labels参数中的顺序，可以调整各个点的顺序和位置。