诸君安！前不久我们一位粉丝问到一个作图的问题，大致是酱紫的：如何让条形图和折线图组合在一起，并且在条形图上显示变量的观测值。乍一听，似乎这个问题应该不难，到底是不是呢？听爬虫小将细细道来！

绘制条形图的命令有twoway bar或者graph bar，绘制折线图的命令有twoway line或者直接是line。首先，我们help一下这些绘图命令，正如下图所示的语法结构，要使得条形图和折线图放在同一张图上，我们只能用到命令twoway。

但是，我们也发现只有在命令graph bar中有选项blabel可以直接在条形图上加上变量观测值。用twoway不能直接用相关的选项，我们只好先采用简单粗暴的方法了！看例子如下，首先我们输入数据：

clear

input year meantotaltax

2011 2700.95

2012 2199.98

2013 2410.99

2014 2492.7

2015 2907.98

end

接着我们用到选项text()将变量的观测值直接添加到条形图上，操作如下：

twoway(bar meantotaltax year, fcolor(midgreen) barwidth(0.5)ylabel(2000(200)3000)  ///

xlabel(2011(1)2015)text(2700.95 2011 "2700.95",placement(12)) text(2199.98 2012 "2199.98"///   

placement(12))text(2410.99 2013 "2410.99",placement(12)) text(2492.7 2014 "2492.7"  ///

,placement(12))text(2907.98 2015 "2907.98",placement(12)))   ///

(linemeantotaltax year,lwidth(medthick) lcolor(red) legend(off))

注：

barwidth()：表示每一个条形的宽度。

text(xy "z")：x表示标签的横坐标，y表示标签的纵坐标，z表示所要添加的标签。

placement()：表示标签的位置。12表示北方，0表示中间。

得到结果如下所示：

这种方法是可以达到我们的目的，但是程序不够精简。如果我们的数据不止有5年，这样一个个添加标签值就有点繁琐，那么我们如何用简单的方法实现这一目的呢？观察上图可以发现，条形图上的点正好也在折线图上，既然不能直接在条形图上加标签，我们可以考虑在折线图上加标签。大家还记得往期推文“混搭图形”中我们介绍的那个图形吗？在这里我们可以借鉴那个方法，看如下操作：

twoway (bar meantotaltax year, yscale(range(20003000)) barwidth(0.5) fcolor(blue*0.4))  ///

(scatter meantotaltax year,ms(O)mcolor(green)  lcolor(red)      ///

lwidth(0.5) connect(l)mlabel("meantotaltax") mlabposition(12) mlabcolor(black)legend(off))

注：

ms()：设置点的形状，O表示圆形，none表示无点。

fcolor()：设置条形体内的颜色。

mcolor()：设置点的颜色。

mlabel()：设置点的标签。

lcolor()：设置线的颜色。

lwidth()：设置线的宽度。

connect()：设置连接线的形状，l表示直线连接。

mlabposition()：设置点标签的位置，12表示钟表的12点钟方向。

mlabcolor()：设置点标签的颜色

可以看到，同样得到了这样的图形。但是，如果条形图和折线图没有共同的点，失去了这样的巧合，我们如何用更一般的方法去实现这一目的呢？在这里我们随机生成一个变量newvar，同样使用刚才的思想，在这里我们将条形图和“省去点”（ms(none)）的散点图结合在一起，并在散点图上加上标签，看如下所示的操作：

gennewvar=meantotaltax+int(1000*uniform())

twoway (bar meantotaltaxyear,fcolor(midgreen) barwidth(0.5) ylabel(2000(500)4000) ///

xlabel(2011(1)2015))(scattermeantotaltax year,ylabel(2000(500)4000) ms(none) ///

mlabel("meantotaltax")mlabposition(6)mlabcolor(white)) (scatter newvar year,m(o) ///

mc(black) lc(midblue) lwidth(0.5)c(l) mlabel("newvar") mlabposition(12) ///

mlabcolor(black)ylabel(2000(500)4000) legend(off))