自动在直方图中标记平均值，中位数和众数

Question

是否可以在R中绘制直方图并在X轴上自动标记均值，中位数和众数（箭头不必成角度，甚至箭头也可以，只要这三个值清晰可见即可）已标记）

编辑：该图确实来自SPSS，但出于我的目的，默认数据集软件包中的hist(airmiles)可以做到。

编辑2：abline确实可以完成这项工作，但是我的偏好仍然标记为箭头，并且显示为潜在重复项的答案并未显示该操作。

编辑3：对这些结果非常满意-谢谢大家：

hist(cars$horse, main="Horsepower distribution", xlab="Horsepower", breaks=40)
marked.labels = vector()
marked.colors = vector()
mark <- function(v, l, c) {
  abline(v = v, col = c)
  mtext(expression({}%up%{}), side = 1, line = 0, at = v, col=c)
  marked.labels <<- c(marked.labels, paste(l, '=', v))
  marked.colors <<- c(marked.colors, c)
}
mark(mean(cars$horse, na.rm=TRUE), 'mean', 'red')
mark(median(cars$horse, na.rm=TRUE), 'median', 'blue')
mark(getmode(cars$horse), 'mode', 'darkgreen')
legend("topright", legend=marked.labels, col=marked.colors, lty=1, cex=0.8)