Plot-Title有几个表达式很好，但不再起作用了

Question

我曾经在stackoverflow上问过以下问题：

Old Question to ask for plot-title with several expressions in a row 以下答案对我来说很好：

title1 <- bquote(atop("Berechnete  über gemessener Wellenanlaufrichtung für",
                    {U <= "4 m/s"}))   

plot(1:10, main=title1)

我在一个函数中实现了它。 今天我想使用该功能，我收到以下错误信息：

heyTitle <- bquote(atop(
           "Hey, guys, this is my plot for",
           {8 <=x}*phantom()<=10
           ))

plot(1:10, main=heyTitle)
>
Error in title(...) : 
   Metric information not available for this family/device

我绝对不知道如何让这个解决方案再次运作......