Как правильно отобразить оси streamgaph в R-Shiny?
Я использовал стримограф. Он работал нормально на автономной программе, однако, он не работал, как ожидалось, на R-Shiny. На R-Shiny ось X просто исчезла. Пожалуйста, смотрите прилагаемые цифры. Может кто-нибудь, пожалуйста, помогите мне с этим? Спасибо.
Код для генерации дела,
библиотека (dplyr) библиотека (streamgraph) библиотека (ggplot2movies)
фильмы%>%
выберите (год, боевик, анимация, комедия, драма, документальный, мелодрама, короткометражка)%>%
tidyr:: collect (жанр, значение, -год) %>% group_by(год, жанр)%>% подсчет (wt= значение)%>% разгруппировка%>%
streamgraph ("жанр", "n", "год")%>% sg_axis_x (20)%>%
sg_fill_brewer ("PuOr")%>%
sg_legend (show = TRUE, label = "Genres:")
Рисунок 1 (с видимой осью X) 
Рисунок 2 (на R-глянце, ось X не видна) 