今日开仓赈济，广开厦宇，大庇天下寒士。
且看吾辈在线图指点江山，挥斥方遒。
在下尽量少说废话，以注释为主。
各位英雄豪杰也当冲锋陷阵，奋勇杀敌，以点打面，触类旁通。
1
入门
#入门
#提取出年龄在5岁以下的数据集
ggplot(uspopage[uspopage$AgeGroup=='<5',],aes(x=Year,y=Thousands)) +
#绘制线形图，并设置颜色、粗细、线的类型
geom_line(colour='red',size=0.8,linetype='solid') +
#更改Y轴标签
ylab(label = 'Thousands ( <5 )') +
#设置主题风格，白底，灰线
theme_bw() +
#更改X轴标签的角度
theme(axis.text.x = element_text(angle = 60,hjust = 1))
image
2
进阶
#进阶
#应用全部数据集，并用颜色colour分类
ggplot(uspopage,aes(x=Year,y=Thousands,colour=AgeGroup)) +
#设置线的粗细
geom_line(size=0.5) +
#添加数据点，设置大小
geom_point(size=1)
image
3
精通
#精通
#面积图用 fill 填色
ggplot(uspopage,aes(x=Year,y=Thousands,fill=AgeGroup)) +
#绘制面积图
geom_area() +
#绘制面积图之间的区分线
geom_line(position = 'stack')
image
#使用 ddply 函数添加新列使数量以百分比显示
uspopage_prop <- ddply(uspopage,'Year',transform,
percent=Thousands/sum(Thousands)*100)
#面积图用 fill 填色
ggplot(uspopage_prop,aes(x=Year,y=percent,fill=AgeGroup)) +
#绘制面积图
geom_area() +
#绘制面积图之间的区分线
geom_line(position = 'stack')
image
各位豪杰用餐愉快。
在下告退，下期再见。
你可能还想看
等你很久啦，长按加入古同社区
image
网友评论