如何在R中输出\楔形？

# 创建一个空白的绘图窗口
plot.new()

# 定义楔形的坐标点
x <- c(0, 1, 1, 0)
y <- c(0, 0, 1, 0)

# 绘制楔形
polygon(x, y)

# 添加标题和坐标轴标签
title(main = "楔形示例")
xlabel <- "X轴"
ylabel <- "Y轴"
title(xlab = xlabel, ylab = ylabel)

# 显示绘图
dev.off()