Chcę mieć nową linię w moimbquote środowisko, jak mogę to zrobić?

mój kod:

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)

I chcę mieć nową linię po znaku równości, więc to powinno dać:

VaR_0.99 =

0.03311

and not

    VaR_0.99 = 0.03311

Próbowałem z liniami, ale to nie zadziałało:

    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)