r - R ggplotly 产生正确的绘图，但是当移动到 plot.ly 时，x 轴是不同的

Question

使用 ggplotly 生成 plotly 对象会返回我需要的内容，但是，当使用 api_create() 并将对象推送到 plotly 在线时，x 轴显示为数字，而不是我在 R 中声明的因子。

mem$Office <- as.factor(mem$Office)
mem_plot <- ggplot(data=mem,aes(x=Office,y=Total, fill=Office)) + 
geom_bar(size=mem$Total,width=0.5,position='dodge',stat='identity') + 
labs(x = 'Office', y = 'Total')

mem_plot <- ggplotly(mem_plot,tooltip=c("x","y"))

mem_plot 

返回：

然后我运行：api_create(mem_plot, filename = "memership-plot")

从 plot.ly 得到这个：

Answer 1

需要调整 ggplotly() 命令。

mem_plot <- ggplotly(mem_plot, dynamicTicks = T)