# 定义五个顶点的坐标
x <- c(8, 15, 0, 12, 3)
y <- c(0, 15, 6, 15, 6)

# 绘制五角星
plot(x, y, type='l', xlim=c(-2,17), ylim=c(-2,17), xlab='', ylab='', axes=FALSE)
polygon(x, y, border='black', col='lightblue')
text(x, y, labels=c('A','B','C','D','E'), pos=3, col='black', cex=1.2)

正五角星


原文地址: https://www.cveoy.top/t/topic/lQcL 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录