geom_label 中的下标

我正在尝试绘制带有指示当前生长期天数的标签的生长期数据图。我希望标签显示为：
999 GDD _50F
但是 parse 似乎不适用于我拥有的代码：

library(dplyr)
library(ggplot2)

data.frame(x=sort(runif(100,0,100)),
           y=sort(runif(100,0,100)))%>%
  ggplot(aes(x=x, y=y))+
    geom_line()+
    geom_label(aes(x=max(x), y=max(y),
                   label=paste0(round(max(y))," GDD[50F]")),
               hjust=1, parse=T)

我觉得bquote()或expression()可能工作，但我无法弄清楚如何获得最大值作为字符串的一部分。