plotly_build ignores geom_text(vjust)

Hello,

The function plotly_build is very useful for introducing a ggplot in a plotly display. When it's bars, and with a label via geom_text, it doesn't follow the vertical alignment vjust function.

Using this function:

SampleData <- data.frame(Name = c("Peter", "Andrew"), Result = c(6, 9))
SamplePlot <- ggplot(SampleData, aes(Name, Result)) + geom_bar(stat = "identity") + 
        geom_text(aes(label=Result), color = "white", vjust = 4)

Using only ggplot, the texts are placed below the border:

When I use the plotly_build function that vertical alignement is lost
plotly_build(SamplePlot)
The display is the same as if the vjusthadn't been introduced

Beginne damit, das bereitgestellte SampleData- und SamplePlot-Beispiel zu reproduzieren und plotly_build(SamplePlot) auszuführen. Verfolge die Konvertierung von ggplot geom_text und konzentriere dich darauf, wie vjust für Balkenbeschriftungen behandelt wird. Die Aufgabe ist abgeschlossen, wenn die erstellte Plotly-Anzeige die in ggplot gezeigte vertikale Ausrichtung beibehält.