前言
随着春节的到来，想必大家都会讨论春节档有什么好电影的值得去看，想想都让人开心，每年的春节档电影都会与大家见面，每次春节都会诞生许多脍炙人口的作品，今年佳片云集，好评如潮，像主演黄渤的《疯狂的外星人》 ，沈腾、尹正、田雨的《飞驰人生》等等，
数据的获取
这一次我们的数据主要来自猫眼，其中一部分是实时预售票房数据。这部分数据可以通过selenium获得。代码如下:
driver = webdriver.Chrome()
driver.maximize_window()
driver.close()
driver.switch_to_window(driver.window_handles[0])
url = 'https://piaofang.maoyan.com/dashboard?date=2019-02-05'
js='window.open("'+url+'")'
driver.execute_script(js)
driver.close()
driver.switch_to_window(driver.window_handles[0])
数据如下:
预售的情况
衡量一部电影的关注度的一个重要方法是看第一天的预售情况。这次，我们从春节档中选取了8部主要电影进行对比。代码如下:
p<-ggplot(data[order(data$sale,decreasing = T),][1:8,],
aes(x=reorder(name,sale),y=sale,fill=name))+
geom_bar(stat='identity',width = 0.5)+
geom_image(aes(x=name,y=0,image=image),size=0.08)+
geom_text(aes(x=name,y=2500,label=label_sale),size = 7,col='black',fontface='bold')+
ggtitle('春节档电影预售票房排名的图片(万)') + theme_economist()+ scale_fill_tableau()+
theme(axis.text.x = element_blank(),
axis.text.y = element_blank(),
plot.title = element_text(hjust=0.5,size=30),
panel.grid = element_blank(),
legend.position = 'none',
panel.background = element_blank(),
axis.title = element_blank(),
axis.line = element_blank(),
axis.ticks = element_blank()
)+coord_flip()+ylim(0,6500)
ggsave("春节档上映前预售排名.png", p, width = 15, height = 15)
结果如下
看来每一年排名在前面的都是关于喜剧题材，看来大家过年都想开开心心的，
本人还是非常喜欢沈腾的，看到沈腾演的电影排名这么高，看来大家都很沈腾的喜剧天分的。