如何用R标注正态曲线的均值和三个标准差

data <- rnorm(n, mean, sd)

curve(dnorm(x, mean, sd), from = min(data), to = max(data), xlab = "x", ylab = "Density", main = "Normal Distribution")

abline(v = mean(data), col = "red", lwd = 2)  # 垂直线标注均值
abline(v = c(mean(data) - 3 * sd(data), mean(data) + 3 * sd(data)), col = "blue", lwd = 2)  # 垂直线标注三个标准差
abline(h = 0, col = "black", lty = 2)  # 水平线标注概率密度为0

# 生成正态分布数据
data <- rnorm(1000, 0, 1)

# 绘制正态曲线
curve(dnorm(x, mean(data), sd(data)), from = min(data), to = max(data), xlab = "x", ylab = "Density", main = "Normal Distribution")

# 标注均值和三个标准差
abline(v = mean(data), col = "red", lwd = 2)  # 垂直线标注均值
abline(v = c(mean(data) - 3 * sd(data), mean(data) + 3 * sd(data)), col = "blue", lwd = 2)  # 垂直线标注三个标准差
abline(h = 0, col = "black", lty = 2)  # 水平线标注概率密度为0