写一个爱心的R语言代码

下面是一段绘制爱心的R语言代码：

# 设置画布大小
plot.new()

# 设置图形的边界
par(xpd=TRUE)

# 计算爱心的x坐标和y坐标
t <- seq(0, pi, length.out=100)
x <- 16 * sin(t)^3
y <- 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)

# 绘制爱心
polygon(x, y, col="red")

运行这段代码，将会在R语言的图形窗口中生成一个红色的爱心图形。