Estou construindo um gráfico Plotly com base em um ggplot em R. Gostaria de aumentar o tamanho do texto nas caixas suspensas. Suponha que eu tenha um gráfico de dispersão 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

Existe uma maneira de alterar o tamanho do texto suspenso?