График искажается при использовании ggplotly вместо ggplot

Question

Я пишу вашу блестящую программу. В этой программе я использовал ggplot () для генерации графа. Тем не менее, я получаю следующее предупреждение при визуализации графика:

Input to asJSON(keep_vec_names=TRUE) is a named vector. In a future version of jsonlite, this option will not be supported, and named vectors will be translated into arrays instead of objects. If you want JSON object output, please use a named list instead. See ?toJSON.

Итак, основываясь на предложении о StackOverflow, я использовал ggplotly (). Теперь предупреждающее сообщение больше не отображается. Однако график полностью искажен.

График сгенерирован ggplot

График сгенерирован ggplotly

Код

        v_graph <- ggplot(aes(x = word, y = v_original_n, fill = v_original_sentiment), data = v_data) + # , scale_x_continuous(breaks = NULL)) +
                        geom_col(show.legend = FALSE) +
                        facet_wrap(~v_original_sentiment, scales = "free_y") +
                        labs(y = "Words Contribution to Individual Sentiments",
                             x = NULL) +
                        coord_flip()
        print(ggplotly(v_graph))

Обратитесь за помощью в вашу помощь.

С уважением, Partha Majumdar