R语言如何使注解在x轴居中显示

在现实问题中遇到了需要添加注解的问题，翻了书，找到了相关的代码

试了一下，没有出现注解，怀疑是其中决定x轴位置的代码的原因

将其中的x=mean(range(global$age)),删去换为一个常数，注解出现

书中给出的代码应该不会错，我在用的过程中是忽略了什么吗？

问题就是x轴的位置参数，不是数值，不能用mean去求均值，书上代码中x的值是数值。检查global$age是否是数值类型，如不是用as.numeric转换，如有na值在range函数中加参数 na_rm=T.这样修改试试。