今天发现了一个神奇的R包，它可以读取Rstudio 镜像数据库，每个包每一天的下载量都可以获得，每天R包下载量排行也可以获得，直接用代码展示它的神奇之处吧。
过去一个月R包下载量TOP20
library(cranlogs)
library(ggplot2)
library(ggthemes)
library(tidyverse)
data=cran_top_downloads("last-month",count = 20)
col=rep(c("#999999","#E69F00","#56B4E9"),7)[-1]
ggplot(data,aes(x=reorder(package,count),y=count))+
geom_bar(stat='identity',fill=col)+
labs(x = "",y='下载量',title = "过去一个月R包下载量TOP20",
subtitle = R.version.string)+
scale_y_continuous(breaks =seq(260000,560700,length=5),
labels=seq(260000,560700,length=5))+
coord_flip()+
theme_pander()
过去一个月机器学习包下载量排行榜
data1=cran_downloads(packages,"last-month")
col1=rep(c("#999999","#E69F00","#56B4E9"),4)
data1[,-1]%>%group_by(package)%>%summarise(count=sum(count))%>%
ggplot(aes(x=reorder(package,count),y=count))+
geom_bar(stat='identity',fill=col1)+
labs(x = "",y='下载量',title = "过去一个月机器学习包下载量排行榜",
subtitle = R.version.string)+
scale_y_continuous(breaks =seq(1000,190000,length=10),
labels=seq(1000,190000,length=10))+
coord_flip()+
theme_pander()
2016年度maps和tidyverse下载量时间序列图
data2=cran_downloads(package=c('maps','tidyverse'),
from = "2016-01-01", to = "2016-12-31")
col2=ifelse(data2$package=='maps',"#E69F00","#999999")
ggplot(data2,aes(date,count,group=package))+
geom_line(aes(colour=package))+
scale_color_manual(values = c("#999999", "#E69F00"))+
labs(x = "日期",y='下载量',title = "2016年度maps和tidyverse下载量时间序列图",
subtitle = R.version.string)+
theme_pander()
最后给大家要说的是2016年10月份上线的tidyverse包，哈德利大神把做数据清理的包和ggplot2进行了整合，《R for Data Science》一书首推词包，下面看一下这个包所加载的R包
上面的包若需跟新只需用tidyverse_update()
欢迎关注魔方学院QQ群
