Ошибка оси X с ggplotly и facet_wrap

Question

Я пытаюсь создать гистограмму с помощью ggplotly и facet_wrap. Тем не менее, ось X выглядит странно для второго и третьего участков. ниже мой код:

library(plotly)
library(ggplot2)
library(dplyr)

setInfo<- data.frame(sampleNumber=rep(c("A","B","C"),4),
                     Category=rep(c("Class 1", "Class 2","Class 3"),4),
                     Value=rep(1,12))

setInfo %>% 
  ggplot(aes(sampleNumber,fill = sampleNumber))+
  geom_bar()+
  facet_wrap(~Category,nrow = 1,scales = "free_x")->plot_this

ggplotly(plot_this)