爬取中国票房网

1.加载所需R

library(XML)
library(ggplot2)
library(ggthemes)
knitr::opts_chunk$set(echo = TRUE)

2.抓取表格

url

3.数据清洗

names(table) 

4.可视化结果

ggplot(boxdf)+
geom_bar(aes(x=reorder(title, boxoffice), y=boxoffice, fill = "boxoffice"), 
         position = "dodge",stat = "identity")+
   scale_fill_manual(values=c(boxoffice="#A6CEE3")) +
   coord_flip() + labs(x=NULL, y=NULL, title="2017年中国内地电影总票房Top25(单位:万)")+
  theme_economist_white()

typedata 

R语言可视化学习笔记之添加p-value和显著性标记

R语言可视化学习笔记之ggrepel包

【重磅】史上最全的论文图表基本规范

关于学术论文Figures，你不能不知道的秘密

优雅的操纵json数据地图素材——打破地理信息可视化的孤岛

用R-Shiny打造一个美美的在线App

shiny动态仪表盘——360度全空间无死角拖拉换肤功能的旋转地球

如需转载请联系EasyCharts团队！

送福利啦！

☑ 长按文末二维码，关注 EasyCharts 公众号；

☑ 加入QQ群，可以在群文件获取 “Excel商业图表修炼秘笈之基础篇-大纲” ；

☑ 加入QQ群，可以在群文件获取 《Excel数据之美》试读样章 、 与书籍配套的Excel源文件 和 EasyCharts插件 ；