plot_ly(revenue,x=~游戏名称,y=~本周,type="bar",name="本周")

plot_ly(revenue,x=~游戏名称,y=~本周,type="bar",name="本周")%>%
  add_trace(y=~上周,name="上周")

layout(barmode='stack',xaxis=list(title=""),yaxis=list(title=""),
         title="游戏收入数据")