Empty objects in subplot

An error arises when mix an empty object with ggplot-derived plotly in subplot

library(plotly); library(ggplot2)
df <- data.frame(dose=c("D0.5", "D1", "D2"), len=c(4.2, 10, 29.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +geom_bar(stat="identity")
ply <- ggplotly(p)
# This gives an error.
subplot(ply, ply, ggplotly(ggplot()), nrows=1, shareX=F, shareY=F, margin=0, widths=c(0.3, 0.3, 0.3))
# This gives a warning.
subplot(ply, ply, plotly_empty(type = "scatter"), nrows=1, shareX=F, shareY=F, margin=0, widths=c(0.3, 0.3, 0.3))

What are the possible solutions? Thanks!

Inizia eseguendo l'esempio R riproducibile con ggplotly(), subplot() e plotly_empty() per osservare l'errore e l'avviso. Esamina la gestione degli oggetti grafico vuoti in subplot e definisci una copertura di regressione per entrambi i casi; il lavoro è completato quando gli oggetti vuoti possono essere combinati senza errori o avvisi.