用ggplot实现政经数据可视化

函数geom_line/path可以绘制包含起始点和多个端点的折线，而我们接下来要使用的geom_hline、geom_vline和geom_abline绘制出来的则是贯穿整个图表的直线，这些直线可被当成参考线附加在其他图形上。这三个函数与geom_line/path有着相同的一般参数（color、alpha、size、linetype等）。

library(ggplot2)

## geom_hline用xintercept确定水平线与X轴的交点，geom_vline用yintercept确定垂直线与Y轴的交点

p=ggplot()+geom_vline(aes(xintercept=0), linetype=2)+ # 垂直线

geom_hline(aes(yintercept=c(0.1, 0.2, 0.3)), color=rainbow(3)) #水平线

# 线条贯穿全图，向两端无限延伸，但图表上显示出来的部分可能并不是我们想看到的部分。因此，我们还必须明确坐标系值域或者把线条跟其他图形放在一起

p+xlim(-3, 3)+ylim(0, 0.4)(www.xing528.com)

x=seq(-3, 3, 0.05); y=dnorm(x)

p+geom_line(aes(x=x, y=y))

## geom_abline用slope和intercept确定斜线的斜率和截距，这两个参数都可以是长度大于1的向量

ggplot()+coord_fixed(xlim=c(-2, 10), ylim=c(-2, 13))+

geom_abline(aes(slope=0.5, intercept=5), color="red", linetype=2, size=1)+

geom_abline(aes(slope=1, intercept=0: 10), linetype="2141")