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

Bắt đầu bằng cách tái hiện ví dụ SampleData và SamplePlot được cung cấp rồi chạy plotly_build(SamplePlot). Theo dõi quá trình chuyển đổi ggplot geom_text, tập trung vào cách vjust được xử lý đối với nhãn của các thanh. Được xem là hoàn tất khi phần hiển thị Plotly được xây dựng giữ nguyên căn chỉnh theo chiều dọc như trong ggplot.