revenue<-read.csv("data/revenue.csv")数据集放在了文章末尾，需要自取。if(!require(plotly))install.packages("plotly")#绘制柱状图p<-plot_ly(revenue,y=~本周,x=~游戏名称,type="bar",name="本周")pp%>%add_trace(y=~上周,na