sepscatter 之应用!-经管之家官网!

人大经济论坛-经管之家 收藏本站
您当前的位置> 考研考博>>

考研

>>

sepscatter 之应用!

sepscatter 之应用!

发布:黃河泉 | 分类:考研

关于本站

人大经济论坛-经管之家:分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

经管之家新媒体交易平台

提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】

提供微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】

我昨天询问NickCox(EditorofStataJournal)有关-sepscatter-指令可否加入配适线,感谢他的回复,已经增加此功能。//https://www.statalist.org/forums/forum/general-stata-discussion/general/3803-sepscatter-avail ...
免费学术公开课,扫码加入


我昨天询问 Nick Cox (Editor of Stata Journal) 有关 -sepscatter- 指令可否加入配适线,感谢他的回复,已经增加此功能。
  1. // https://www.statalist.org/forums/forum/general-stata-discussion/general/3803-sepscatter-available-from-ssc
  2. *! 1.1.0 NJC 5 December 2018
  3. *! 1.0.2 NJC 9 May 2014
  4. *! 1.0.1 NJC 8 May 2014
  5. *! 1.0.0 NJC 29 April 2014
  6. program sepscatter
  7. version 9

  8. capture syntax anything [if] [in] [aweight fweight pweight] ///
  9. , seperate(varname) [ * ]

  10. if _rc == 0 {
  11. noisily di _n "note: sep" as err "a" astxt "rate() is correct spelling"

  12. local 0 `anything' `if' `in' [`weight' `exp'] ///
  13. , separate(`seperate') `options'
  14. }

  15. syntax varlist(numeric min=2 max=2) [if] [in] ///
  16. [aweight fweight pweight] , SEParate(varname) ///
  17. [MYLAbel(varname) MYNUmeric(varname) MISSing addplot(str asis) *]

  18. capture noisily {

  19. quietly {
  20. if "`mylabel'" != "" & "`mynumeric'" != "" {
  21. di as err "choose mylabel() or mynumeric()"
  22. exit 198
  23. }

  24. tokenize `varlist'
  25. args y x

  26. marksample touse
  27. if "`missing'" == "" markout `touse' `separate', strok
  28. count if `touse'
  29. if r(N) == 0 exit 2000

  30. tempname stub
  31. separate `y' if `touse', `missing' by(`separate') ///
  32. gen(`stub') veryshortlabel
  33. local Y `r(varlist)'
  34. local nY : word count `Y'
  35. }

  36. local ytitle : var label `y'
  37. if `"`ytitle'"' == "" local ytitle "`y'"

  38. if "`mylabel'`mynumeric'" != "" {

  39. if "`mynumeric'" != "" {
  40. if "`: value label `mynumeric''" != "" {
  41. tempvar mylabel
  42. gen `mylabel' = `mynumeric'
  43. }
  44. else local mylabel `mynumeric'
  45. }

  46. local mylabel : di _dup(`nY') "`mylabel' "
  47. local mypos : di _dup(`nY') "0 "
  48. local mynone : di _dup(`nY') "none "
  49. local mylabel ///
  50. ms(`mynone') mla(`mylabel') mlabpos(`mypos') legend(off)
  51. }

  52. scatter `Y' `x' if `touse' [`weight' `exp'], ///
  53. ytitle(`"`ytitle'"') ms(Oh plus X Th Sh Dh) `mylabel' ///
  54. `options' || `addplot'
  55. }

  56. drop `Y'
  57. end

  58. sysuse auto, clear
  59. sepscatter mpg weight , sep(foreign) mc(red blue) addplot(qfit mpg weight if !foreign, lc(red) || qfit mpg weight if foreign, lc(blue)) legend(order(1 2))
复制代码其图形为
「经管之家」APP:经管人学习、答疑、交友,就上经管之家!
免流量费下载资料----在经管之家app可以下载论坛上的所有资源,并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库,各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里,你可以找到任何学科方向、有共同话题的朋友。
经管之家(原人大经济论坛),跨越高校的围墙,带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
本文关键词:

本文论坛网址:https://bbs.pinggu.org/thread-6799847-1-1.html

人气文章

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责;
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性,不作出任何保证或承若;
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
经管之家 人大经济论坛 大学 专业 手机版