ggplotly编码问题

Question

我正在使用ggplotly函数将静态ggplot2条形图转换为交互式条形图。

但是，我的输出会返回一个包含编码问题的图表 - 如下所示。

我的ggplot2图表很好。

编辑：下面的数据框

头（TEST2）

IRO_NAME_AND_SURNAME           correct   incorrect   percent
## 1        НАУМ ДИМИТРОВСКИ       0         2 100.00000
## 2     АЛЕКСАНДАР МИРЧЕСКИ    1708       460  21.21771
## 3 НАДИЦА ИЛОСКА НИКОЛОСКА    1736       440  20.22059
## 4         ЕЛЕНА ТОДОРОСКА    2009       472  19.02459
## 5         ГОЦЕ ПУПАЛЕВСКИ     849       186  17.97101
## 6    АНА МИЛЕСКА ЛАТКОСКА    2155       447  17.17909

创建ggplot2对象。

 b <- ggplot(test2, aes(as.factor(IRO_NAME_AND_SURNAME), percent)) +
  geom_bar(position="dodge",stat="identity", fill = "deepskyblue4") +
  coord_flip() +
  theme(legend.title=element_blank()) +
  ggtitle(expression(atop(bold("test test test"), atop(italic("NBI: 2011 - 2016"), "")))) +   
  xlab("") + ylab("") +
  geom_text(aes(label=percent), color='white') 

ggplotly(b)