ggplot to ggplotly does not accept variable alpha

I'm trying to convert a ggplot that has alpha in its aesthetics (it needs to be variable), which works perfectly in ggplot, but ggplotly() outputs an error.

set.seed(666)
y <- rpois(1000, 2.9)
table(y)

holdThis <- as.data.frame(table(y))
holdThis$cumTotal <- cumsum(holdThis$Freq)
holdThis$percentage <- (as.numeric(holdThis$Freq)/10000) * 100
holdThis$y <- as.numeric(as.character(holdThis$y))

p <- ggplot(holdThis, aes(x=y, y=Freq, alpha = Freq)) + geom_bar(stat='identity', fill= 'blue', color="black", size = .25) + scale_x_discrete(breaks = y)

ggplotly(p)

まず、提供された R の再現可能な例とエントリーポイント ggplotly(p) を実行し、変数 alpha の aesthetic の変換に注目します。完了条件は、例がエラーなく変換され、元の ggplot に示された変数 alpha の動作が保持されることです。