# 创建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")