Stata作图的能力实在是不敢恭维（以横轴日期显示为例）

蓝色 发表于 2015-11-26 19:41
你如果不想显示时间
只需要设置
format  date  %9.0f

   问题是，还是想显示时间啊，比如说固定显示每一年的1月份和7月份，写成xlabel（2006m1(6)2014m12）肯定是不行的，那就需要手工（或者近似手工的用--forval--）寻找到每一个月份对应的elapsed time value, 在我的例子中就是
552 558 564 570 576 582 588 594 600 606 612 618 624 630 636 642 648 654
   这一堆怪怪的数字，然后手工输入到xlabel选项中，我觉得这个过程极其蛋疼。

zlqs1985 发表于 2015-11-26 20:56
问题是，还是想显示时间啊，比如说固定显示每一年的1月份和7月份，写成xlabel（2006m1(6)2014m12）肯定 ...

我给你的链接
和程序上的例子，很明显直接就显示
不需要xlabel

format date %tm
就可以啊

蓝色 发表于 2015-11-26 20:59
我给你的链接
和程序上的例子，很明显直接就显示
不需要xlabel

如果只想显示特定的月份呢？我的时间变量已经format 了

我的code

twoway (line new70_index time2)(line CREIS100_hpi time2) ///
  ,                                                      ///
   xlabel(552 558 564 570 576 582 588 594 600 606 612 618 624 630 636 642 648 654   ///
   ,angle(45)) ///
   title("住宅价格指数(全国)")                           ///
   ytitle("月度数据，基期为2005年7月")                   ///
   xtitle("")                                            ///
   legend (label(1 "NBS70个大中城市房价指数") label(2 "百城住宅价格指数") ///
   region(lcolor(white)) col(1) size(small) position(6) ring(0))

clear
input ///
str10 date y
"1960m1" 1
"1960m2" 1.3
"1960m3" 3.5
"1960m4" 4
"1960m5" 4
end

gen ym=monthly(date,"YM")
list
tw (line y ym),saving(f1,replace)


format ym %tm
tw (line y ym),saving(f2,replace)

graph combine f1.gph f2.gph

clear
input ///
str10 date y
"1960m1" 1
"1960m2" 1.3
"1960m3" 3.5
"1960m4" 4
"1960m5" 4
end

gen ym=monthly(date,"YM")
list
tw (line y ym),saving(f1,replace)


format ym %tm
tw (line y ym),saving(f2,replace)

graph combine f1.gph f2.gph

clear
input ///
str10 date y
"1960m1" 1
"1960m2" 1.3
"1960m3" 3.5
"1960m4" 4
"1960m5" 4
end

gen ym=monthly(date,"YM")
list
tw (line y ym),saving(f1,replace)


format ym %tm
tw (line y ym),saving(f2,replace)

graph combine f1.gph f2.gph

Brewing color schemes in Stata:Making it easier for end users to customize Stata graphs
_

1. *ssc inst brewscheme
   
2. brewscheme, scheme(myriadColorPalettes) barst(paired) ///
   
3. barc(12) dotst(prgn) dotc(7) scatstyle(set1) scatc(9) ///
   
4. linest(pastel2) linec(8) boxstyle(accent) boxc(8) ///
   
5. areast(dark2) areac(8) piest(mdepoint) sunst(greys) ///
   
6. histst(veggiese) cist(activitiesa) matst(spectral) ///
   
7. reflst(purd) refmst(set3) const(ylgn) cone(puor)
   
8. 
   
9. 
   
10. sysuse nlsw88.dta, clear
    
11. #d;
    
12. tw scatter wage ttl_exp if industry == 11 || scatter wage
    
13. ttl_exp if industry == 4 || scatter wage ttl_exp if
    
14. industry == 6 || scatter wage ttl_exp if industry == 7,
    
15. ti("Not so Simple Scatterplot")
    
16. scheme(myriadColorPalettes) legend(label(1
    
17. "Professional") label(2 "Manufacturing") label(3
    
18. "Wholesale/Retail") label(4 "Fin./Insure/Real Estate"));
    
19. #d cr

复制代码

Compared to the graphs that R can do,the main impediment is probably that stata graphics is not programmable by MOST USERS!!!

@蓝色 @BlackHawk123  多谢二位的回复

1. clear
   
2. input ///
   
3. str10 date   y
   
4.         "1960m1" 1
   
5.         "1960m2" 1.3
   
6.         "1960m3" 3.5
   
7.         "1960m4" 4
   
8.         "1960m5" 4
   
9. end
   
10. 
    
11. encode date,gen(t)
    
12. 
    
13. tw connected y t, xtick(0(1)5 ,grid glcolor(gs12) glw(*.5) ///
    
14.         tlength(*1.5)) xlabel(0.5(1)4.5, noticks format(%tm)) xtitle("") ///
    
15.         yla(, ang(h)) saving(f2, asis replace)

复制代码