更改y轴标题对ggplotly悬停没有影响

Question

我以这种方式创建了一个ggplot对象：

p<-ggplot(melt.cluster.data)+
  geom_histogram( aes(x = value,y=(..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..],fill=variable)) +
  facet_grid(CLUSTER_CLARA~variable,scales="free")+
  aes(fill = variable)+
  theme(strip.text.x = element_text(size=8,face="bold"),
        strip.text.y = element_text(size=12, face="bold"),
        strip.background = element_rect(colour="black", fill="#CCCCFF"))+
  labs(y="Numero Clienti",xlab="")+
  theme(legend.position =  "none")

我希望有一个互动情节，所以我打电话给ggplotly

ggplotly(p)%>%config(displayModeBar = F)

尽管我用labs重命名了y轴标题，但我仍然停留在悬停的(..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..]上，这很丑

我该如何解决？