Как получить новую строку в выражении `bquote`, используемом с` text`?

Я хочу иметь новую строку в моемbquote Envrionment, как я могу это сделать?

мой код:

test<-c(1,2,3,4,4.5,3.5,5.6)
test2<-0.033111111
plot(test,c(1:length(test)))

segments(4,0,4,23,col="red",lwd=2)
text(5, 4.5, labels = bquote(Qua[0.99] == .(round(test2,4))),col="red", cex = 1.4)

И я хочу иметь новую строку после знака равенства, поэтому это должно дать:

VaR_0.99 =

0.03311

and not

    VaR_0.99 = 0.03311

Я попробовал это со строками, но это не сработало:

    test<-c(1,2,3,4,4.5,3.5,5.6)
    test2<-0.033111111
    lines<-list(bquote(Qua[0.99] == ),bquote(.(round(test2,4))))
    plot(test,c(1:length(test)))

    segments(4,0,4,23,col="red",lwd=2)
    text(5, 4.5, labels =lines ,col="red", cex = 1.4)