[Stata]-radar-雷达图/蛛网图

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

radar

ssc inst radar     ssc inst brewscheme     brewscheme, scheme(test2) barst(paired) barc(12) dotst(prgn) dotc(7) ///        scatstyle(set1) scatc(9) linest(pastel2) linec(8) boxstyle(accent) boxc(8)  ///        areast(dark2) areac(8) piest(mdepoint) sunst(greys) histst(veggiese)   ///        cist(activitiesa) matst(spectral) reflst(purd) refmst(set3) const(ylgn)  ///        cone(puor) 复制代码 set scheme test2 sysuse auto,clear    radar make weight if foreign 复制代码 //法二： sysuse auto,clear    radar make weight if foreign ,plotregion(style(none)) 复制代码     radar make turn mpg trunk if foreign 复制代码     radar make turn mpg trunk if foreign, title(Nice Radar graph) 复制代码     radar make turn mpg trunk if foreign, title(Nice Radar graph) lc(red blue green) lp(dash dot dash_dot) 复制代码     radar make turn mpg trunk if foreign, title(Nice Radar graph) lc(red blue green) r(0 12 14 18 50) 复制代码 radar make turn mpg trunk if foreign, title(Nice Radar graph) lc(red blue green) lw(*1 *2 *4) r(0 12 14 18 50) 复制代码 qui{     use http://www.stata-press.com/data/r9/fullauto.dta, clear     drop if rep78 ==.     collapse  mpg, by(rep78)     qui tab rep     local num = r(r)     gen max = ceil(mpg)     rename rep id     sort id     tempfile foo1 foo2 foo3     save `foo1'     sum max     local max = round(r(max),10)     clear     local num = `num' + 1     set obs `num'     gen angle = 72*(_n-1)     replace angle = 360 in 1     gen ang2 = angle/57.2957795     gen y = `max'*sin(ang2)     gen x = `max'*cos(ang2)     gen halfy = (`max'/2)*sin(ang2)     gen halfx = (`max'/2)*cos(ang2)     gen center1 = 0     gen center2 = 0     gen id = _n     sort id     save `foo2'     use `foo1'     merge id using `foo2'     drop _m     replace mpg = mpg[1] in 6     sort id     save `foo2', replace     gen j = _n     reshape wide x y, i(id) j(j)     sort id     save `foo3'     use `foo2'     merge id using `foo3'     forv i = 1/6 {             replace x`i' = 0 if x`i' == .             replace y`i' = 0 if y`i' == .             }     replace id = . in 6     input clock     12     3     6     6     9     end     gen mpg_y = mpg*sin(ang2)     gen mpg_x = mpg*cos(ang2) } twoway connect  x y, lc(black) mc(gs0) lw(medthick) /// ml(id) mlabsize(large) mlabv(clock)  /// || conn  mpg_x mpg_y ,mc(gs0) lc(gs0) recast(area) /// || conn   halfx halfy, lc(black) mc(gs0) lp(dash) /// || scatter center1 center2, mc(gs0) /// || connect x1 y1,lc(gs0) mc(gs0) /// || conn x2 y2,lc(gs0) mc(gs0) /// || conn x3 y3,lc(gs0) mc(gs0) /// || conn x4 y4 ,lc(gs0) mc(gs0) /// || conn x5 y5, lc(gs0) mc(gs0) /// || conn x6 y6, legend(off)lc(gs0)  mc(gs0) /// xscale(off) yscale(off) xlabel(none) ylabel(none, nogrid) /// aspect(1) plotregion(style(none) margin(large)) /// text( 15 -2 "`=`max'/2'", size(small)) scheme(test2) /// text(27 -2 "`max'", size(small)) title("Average MPG by Repair Record") 复制代码

扫码加我 拉你入群

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

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

分享0 收藏27 回帖

关键词：Stata Radar Adar tata DaR foreign

支持楼主!

好贴，谢谢分享。

xddlovejiao1314 发表于 2015-12-15 17:01
好贴，谢谢分享。

1. //感谢师兄
   
2. #d;
   
3. twoway  
   
4.     (scatteri 8 0 "也许我们的心事 　　            总是没有读者", mlabsize(large) pstyle(p1))
   
5.     (scatteri 7 0 "也许路开始已错 　　            结果还是错", mlabsize(large) pstyle(p1))
   
6.     (scatteri 6 0 "也许我们点起一个个灯笼     又被大风一个个吹灭 ", mlabsize(large) pstyle(p1))
   
7.     (scatteri 5 0 "也许燃尽生命烛照黑暗　　 身边却没有取暖之火", mlabsize(large) pstyle(p1))
   
8.     (scatteri 4 0 "也许泪水流尽　　                 土地更加肥沃", mlabsize(large) pstyle(p1))
   
9.     (scatteri 3 0 "也许我们歌唱太阳 　　        也被太阳歌唱着", mlabsize(large) pstyle(p1))
   
10.     (scatteri 2 0 "也许肩上越是沉重 　　        信念越是巍峨", mlabsize(large) pstyle(p1))
    
11.     (scatteri 1 0 "也许为一切苦难疾呼  　　   对个人的不幸只好沉默", mlabsize(large) pstyle(p1))
    
12.     (scatteri 0 0 "也许由于不可抗拒的召唤 　我们没有其它选择", mlabsize(large) pstyle(p1)) ,
    
13.     title("{bf: 也许}",size(huge) color(pink))  subtitle("——答一位读者的寂寞",color(blue) margin(small))
    
14.     t2title("舒婷",color(blue) margin(small) )
    
15.     xlabel(-0.05 1) ylabel(0 7)   xscale(off) yscale(off)  legend(off) scheme(sj)
    
16.     plotregion(sty(none)) note("https://bbs.pinggu.org/thread-4128289-1-1.html{it:}",margin(medium));
    
17. #d cr

复制代码

感谢分享！

niuniuyiwan 发表于 2015-12-15 20:22

有同感！支持！

hua2007 发表于 2015-12-24 09:39
有同感！支持！

仁兄高义，圣诞快乐!

niuniuyiwan 发表于 2015-12-25 09:52
仁兄高义，圣诞快乐!

你的这个stata系列做得很好，支持！加油！圣诞快乐！

楼主棒棒嗒！

请问楼主代码在哪里