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)

Beginne damit, das bereitgestellte reproduzierbare R-Beispiel und den Einstiegspunkt ggplotly(p) auszuführen, wobei du dich auf die Konvertierung der variablen Ästhetik alpha konzentrierst. Als abgeschlossen gilt die Aufgabe, wenn das Beispiel ohne Fehler konvertiert wird und das im ursprünglichen ggplot gezeigte Verhalten der variablen Alpha-Ästhetik beibehält.