Quiero tener una nueva linea en mibquote Envrionment, ¿cómo puedo hacer esto?

mi código:

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)

Y quiero tener una nueva línea después del signo igual, así que esto debería dar:

VaR_0.99 =

0.03311

and not

    VaR_0.99 = 0.03311

Lo probé con líneas, pero no funcionó:

    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)