全部版块 我的主页
› 论坛 › 计量经济学与统计论坛 五区 › 计量经济学与统计软件 › 统计软件培训班VIP答疑区
连老师，请教画图~
eric_yan
2649 8
2013-09-30
连老师我画了两幅图，但是每幅图倒最后都打不开，不知道是什么原因？
*第一个图的do文件
   use "d:\进析\TFP\zuihou.dta", clear
   #delimit ;
   twoway (scatter vnp_tiov IMP_PR || qfit vnp_tiov IMP_PR if TFP_gap<=.536126, lpattern(solid) lcolor(black*1.5))          ///
          (scatter vnp_tiov IMP_PR || qfit vnp_tiov IMP_PR, lpattern(dash) lcolor(black*1.5))           ///
                  ,                                                     ///                                    
                  scheme (s1mono)                                       ///     
                  ylabel(,angle(0))                                     ///
                  ytitle("企率")                              ///
                  xtitle("行率")                              ///
                  ymtick(##2, axis(1))                                  ///
                  xmtick(##2)                                           ///
          legend(label(1 "企率") label(2 "拟合值一") label(2 "拟合值二") rows(1) size(*1)) ///
                  ;
                  #delimit cr
   ********************************************************************
   *第二个图的do文件
    use "d:\进口竞争和产品创新\非平衡面板分析\TFP\zuihou.dta", clear
        #delimit ;
    twoway (scatter sum_vnpx IMP_PR || qfit sum_vnpx IMP_PR if TFP_gap<=.5361216, lpattern(solid) lcolor(black*1.5))   ///
               (scatter sum_vnpd IMP_PR || qfit sum_vnpd IMP_PR if TFP_gap>.5361216, lpattern(dash_dot) lcolor(black*1.5))    ///
                   ,                                                  ///
                   scheme (s1mono)                                    ///
                   ylabel(,angle(0))                                  ///
                   ytitle("行业新率")                           ///
                   xtitle("行业透率")                           ///
                   ymtick(##2, axis(1))                               ///
                   xmtick(##2)                                        ///
           legend(label(1 "行业新率") label(2 "拟合值一") label(2 "拟合值二") rows(1) size(*1))///
                   ;
           #delimit cr
—————————————————————————————————————————————————————                                   

另外学生还有两个请求：
一，每个图画完之后，请老师帮忙合并成并排两个的。
二，请老师把忙吧散点的颜色调整颜色变浅，回归线变粗，颜色变深。

麻烦您了·~数据我发您邮箱~~
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复
arlionn
2013-9-30 17:06:55
既然用了 #delimit 就可以删除那些断行的 /// 了。

合并图形，参考 help graph combine ，视频中 A3_graph 有详细讲解；

二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

eric_yan
2013-9-30 17:19:30
arlionn 发表于 2013-9-30 17:06
既然用了 #delimit 就可以删除那些断行的 /// 了。

合并图形，参考 help graph combine ，视频中 A3_gra ...
连老师，如何把散点的颜色变浅啊？
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

eric_yan
2013-9-30 17:26:31
arlionn 发表于 2013-9-30 17:06
既然用了 #delimit 就可以删除那些断行的 /// 了。

合并图形，参考 help graph combine ，视频中 A3_gra ...
>                    xmtick(##2)                                       
>            legend(label(1 "DDòμ2úÆ·′′DÂÂê") label(2 "ÄaoÏÖμò»") label(2 "ÄaoÏÖμ¶t") rows(1) size(*1))
>                    ;
| invalid name
r(198
连老师，我删除断行线之后，依然不能运行·~
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

arlionn
2013-9-30 21:47:16
如下程序可以运行处图形：

global path "C:\Documents and Settings\Administrator\桌面\gr\"
cd "$path"

use "C:\Documents and Settings\Administrator\桌面\zuihou.dta", clear

  preserve
  duplicates drop vnp_tiov IMP_PR, force //删除重复值
    
#delimit ;
   twoway (scatter vnp_tiov IMP_PR)
          (qfit vnp_tiov IMP_PR if TFP_gap<=.536126,
                   lpattern(solid) lcolor(black*1.5))
                  (qfit vnp_tiov IMP_PR, lpattern(dash) lcolor(black*1.5))
                  ,                                                                                         
                  scheme (s1mono)                                            
                  ylabel(,angle(0))                                    
                  ytitle("企率")                              
                  xtitle("行率")                              
                  ymtick(##2, axis(1))                                 
                  xmtick(##2)                                          
          legend(label(1 "企率") label(2 "拟合值一")
                         label(2 "拟合值二") rows(1) size(*1))
                  ;
                  #delimit cr
  
   *-输出图片
   graph export gr_1.wmf, replace
  restore

问题在于，即使使用 duplicates 删除重复值后，你的样本中仍然有 62967 个观察值。这么多个观察值绘制的散点图，根本看出不任何规律。

建议你现在年度或者某个类别变量的基础上计算出平均值，然后再绘制散点图。

观察值的个数控制在 500 以内才会有比较直观的效果。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

eric_yan
2013-10-1 11:38:59
感谢连老师，图终于弄好了。最后我虽然还是用了自己的方法，但是还是要谢谢您的指导和关心~~
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…
栏目导航
热门文章
推荐文章

说点什么

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群