如何在R-shiny中正确显示streamgaph轴？

Question

我正在使用streamgraph。它在独立程序上工作正常，然而，它在r-shiny上没有按预期工作。在R-shiny上，X轴刚刚消失。请参阅附图。有人可以帮我这个吗？谢谢。

生成案例的代码，

  

库（dplyr）   库（streamgraph）   库（ggplot2movies）

     

电影％＆gt;％
  选择（年，动作，动画，喜剧，戏剧，纪录片，浪漫，短片）％＆gt;％
  tidyr :: gather（流派，价值， - 年）   ％＆gt;％group_by（年份，流派）％＆gt;％理货（wt =值）％＆gt;％ungroup％＆gt;％
  streamgraph（＆＃34;流派＆＃34;，＆＃34; n＆＃34;，＆＃34;年＆＃34;）％＆gt;％sg_axis_x（20）％＆gt;％
  sg_fill_brewer（＆＃34; PuOr＆＃34;）％＆gt;％
  sg_legend（show = TRUE，label =＆＃34;类型：＆＃34;）

图1（带有访问X轴）

图2（On R-shiny，X-Axis不可见）