如何将平均值添加到R中的直方图？

# 生成随机数据
set.seed(123)
data <- rnorm(1000)

# 创建直方图
hist(data, col = "lightblue", main = "Histogram with Mean", xlab = "Values", ylab = "Frequency")

# 计算平均值
mean_value <- mean(data)

# 在直方图上添加平均值
abline(v = mean_value, col = "red", lwd = 2, lty = 2)
text(x = mean_value, y = 0, label = "Mean", adj = c(0.5, 1.5), col = "red", cex = 0.8)

# 生成数据并创建直方图
set.seed(123)
data <- rnorm(1000)
hist(data, col = "lightblue", main = "Histogram with Mean", xlab = "Values", ylab = "Frequency")

# 计算平均值并将其添加到直方图上
mean_value <- mean(data)
abline(v = mean_value, col = "red", lwd = 2, lty = 2)
text(x = mean_value, y = 0, label = "Mean", adj = c(0.5, 1.5), col = "red", cex = 0.8)