25 lines
646 B
R
25 lines
646 B
R
# 设置随机种子以便重现
|
|
set.seed(123)
|
|
|
|
# 生成示例数据
|
|
x <- rnorm(100) # 生成 100 个正态分布随机数作为 x 值
|
|
y <- rnorm(100) # 生成 100 个正态分布随机数作为 y 值
|
|
|
|
# 创建散点图
|
|
plot(x, y,
|
|
main = "随机数据的散点图", # 图表标题
|
|
xlab = "X-axis Label", # X 轴标签
|
|
ylab = "Y-axis Label", # Y 轴标签
|
|
col = "blue", # 点的颜色
|
|
pch = 19
|
|
) # 点的形状
|
|
|
|
# 添加回归线
|
|
abline(lm(y ~ x), col = "red") # 添加线性回归线，红色
|
|
|
|
# 添加图例
|
|
legend("topright",
|
|
legend = c("Data Points", "Regression Line"),
|
|
col = c("blue", "red"), pch = c(19, NA), lty = c(NA, 1)
|
|
)
|