编辑代码

# 创建x轴坐标
x <- seq(0, 2*pi, length.out = 100)
# 计算正弦函数值
y <- sin(x)
# 绘制图形
plot(x, y, type="l", col="blue", xlab="x", ylab="y", main="Sin Function Curve")