这个问题我太熟了——ggplot的美学属性长度匹配问题是新手常踩的坑，我来给你拆解一下：

错误原因 #

你看到的Fehler: Aesthetics must be either length 1 or the same as the data (31): label报错，本质是geom_text默认会继承主图层的数据集，而你的主数据集有31行，但A_Statrd是单个数值（长度1），两者长度不匹配，ggplot不知道该把这个标签对应到哪一行数据上，所以抛出错误。

两种有效解决办法 #

根据你的需求（用单个数值变量做标签），推荐以下两种方案：

方案1：关闭美学属性继承（最简便）

给geom_text加上inherit.aes = FALSE参数，这样它就不会继承主图层的数据集和美学映射，你可以直接传入单个长度的标签值：

geom_text(aes(x = as.Date("2018-03-05"), y = -8), 
          label = A_Statrd, 
          inherit.aes = FALSE)

这个方法的好处是代码改动最小，适合快速解决单个标签的需求。

方案2：传入独立的小数据集（更规范）

把标签的x、y坐标和标签值打包成一个单独的小数据框传给geom_text，这样完全避免继承主数据的问题，逻辑更清晰：

# 先创建包含标签信息的小数据框
label_data <- data.frame(
  x = as.Date("2018-03-05"),
  y = -8,
  label = A_Statrd
)

# 在geom_text中使用这个数据集
geom_text(data = label_data, aes(x = x, y = y, label = label))

这种方式更适合需要添加多个独立标签的场景，后期维护起来更方便。

额外提示 #

如果你的A_Statrd是数值型变量，ggplot会自动把它转换成字符串显示；如果需要格式化数值（比如保留2位小数），可以用格式化函数处理：

# 保留2位小数
label = sprintf("%.2f", A_Statrd)
# 或者用scales包的格式化函数
label = scales::number(A_Statrd, accuracy = 0.01)

内容的提问来源于stack exchange，提问作者moritz69