Estoy construyendo un gráfico de Plotly basado en un ggplot en R. Me gustaría aumentar el tamaño del texto en los cuadros de desplazamiento. Supongamos que tengo un diagrama de dispersión como este:

library(plotly)
library(ggplot2)

d <- data.frame(a = sample(1:50, 30, T), 
                b = sample(1:50, 30, T), 
                col = factor(sample(1:3, 30, T)))

gg <- ggplot() + geom_point(aes(x = a, y = b, color = col), data = d)

p <– plotly_build(gg)
p

¿Hay alguna manera de cambiar el tamaño del texto emergente?