2.14情人节高段位“撩妹心计”！高逼格5大统计软件勇表「单身汪」心迹

正文

请到「今天看啥」查看全文

line b a

gr_edit yaxis1.draw_view.setstyle, style(no)

gr_edit xaxis1.draw_view.setstyle, style(no)

gr_edit plotregion1.AddTextBox added_text editor .7055394244311991 .2810707216715078

gr_edit plotregion1.added_text_new = 1

gr_edit plotregion1.added_text_rec = 1

gr_edit plotregion1.added_text[1].style.editstyle  angle(default) size(medsmall) color(red) horizontal(left) vertical(middle) margin(zero) linegap(zero) drawbox(no) boxmargin(zero) fillcolor(bluishgray) linestyle( width(thin) color(red) pattern(solid)) box_alignment(east) editcopy

gr_edit plotregion1.added_text[1].style.editstyle size(large) editcopy

gr_edit plotregion1.added_text[1].text = {}

gr_edit plotregion1.added_text[1].text.Arrpush  "           I LOVE YOU"

graph export "C:\Desktop\520.png", as(png) wid(800)hei(600) replace

以下为输出结果：

以上程序基于stata12运行，如果有stata14的话，还可以输入中文！祝大家好运！

R

接下来是R绘制心形线，代码如下：

1）加加载程序包

library(grid)

2）绘制心形函数

heart

t=seq(0, 2*pi, by=0.1)

x=16*sin(t)^3

y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)

a=(x-min(x))/(max(x)-min(x))

b=(y-min(y))/(max(y)-min(y))

grid.lines(a,b,gp=gpar(col=lcolor,lty = "solid",lwd = 6))

}

heart("hotpink")

grid.newpage()

3）绘制玫瑰函数

rose=function(){

grid.circle(x=0.5, y=0.5, r=0.5,gp=gpar(fill="red",lwd = 3))

vp

pushViewport(vp)

grid.polygon(x=c(0.08, .5, 0.94),y=c(.22, 1.03, .22),gp=gpar(lwd =

vp2

pushViewport(vp2)

grid.circle(x=0.5, y=0.5, r=0.5,gp=gpar(fill="red",lwd = 3))

vp3

pushViewport(vp3)

grid.polygon(x=c(0.08, .5, 0.94),y=c(.22, 1.03, .22),gp=gpar(lwd = 3))}

rose()

4）调整图形

grid.newpage()

pushViewport(viewport(x=0.1, y=0.1,w=0.2, h=0.2))

grid.newpage()

for (j in 1:30) {

vp

pushViewport(vp)

heart("hotpink")

}

5）调整图形及添加文字

grid.newpage()

vp1

pushViewport(vp1)

heart("red")

vp2

pushViewport(vp2)

heart("hotpink")

grid.text("执手偕老",

x=0.2,y =1.2, just = c("center", "bottom"),

gp = gpar(fontsize=30), vp = vp)

vp3

pushViewport(vp3)

rose()

结果如下：

请到「今天看啥」查看全文