对心形图稍作了些修改,更简洁,如下:
clear
range t 0 2*_pi 1000
gen x=16*sin(t)^3
gen y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
egen x_min=min(x)
egen x_max=max(x)
egen y_min=min(y)
egen y_max=max(y)
gen a=(x-x_min)/(x_max-x_min)
gen b=(y-y_min)/(y_max-y_min)
#delimit ;
line b a,
lcolor(red) lwidth(*8)
text(0.6 0.5 "写上祝福吧!" "(小伙伴们,学Stata的动力来了吗)",
linegap(*2) color(green) size(*1.8))
xscale(off) yscale(off)
;
#delimit cr