You may get very good hints for the folllowing, good luck:  

sysuse auto, clear
encode make,gen(make_n)
codebook make_n             //find the unique values (74),which will be used in the following "xlabel()"
twoway (bar mpg make_n if foreign==0,barwidth(0.5))     ///
(bar mpg make_n if foreign==1,barwidth(0.5))    ///
(line price make_n, sort  yaxis(2)),      ///
legend(order(1 "Domestic" 2 "Foreign" 3 "Price"))    ///
ylabel(0(50)200,axis(1))     ///
ylabel(0(4000)16000,axis(2))     ///
xtitle("")     ///
xlabel(#74, labsize(tiny) angle(vertical) valuelabel)

将数据导入Excel里，好容易就做到了！

先将各省效率值柱形图画出，然后选中开放度数据，增加右侧坐标轴……试试，应该可以画出的。祝成功！

我其他的图是用stata做的，最好统一咯，还是谢谢热心解答~

非常感谢~~