R - ggplotly设置标签（rshiny）

Question

我的ggplotly有问题。当鼠标进入绘图时，我想更改x的标签。我有以下几点：y：数字，我想：中产阶级的人：数字。见图。

这是我的R代码（在服务器内）：

output$plotly1 <- renderPlotly({
 y<-glob_mid_class[input$years]
 p<-ggplot(mid_cl(), aes(x=Region, y=y)) +
    geom_bar(stat="identity") +
    ggtitle("Global Middle Class") +
    xlab("Regions") + ylab("People in middle class") +
    theme(plot.title = element_text(hjust = 0.5)) + ylim(0,3000)
 ggplotly(p)
})

感谢您的帮助