七夕之际送各位一段代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

      今天是七夕，谨以一段代码祝大家七夕快乐~
      不设置隐藏了，还是那句话，大家图个乐，在愉悦的心情下学R~

1. par(bty="n",xaxt="n", yaxt="n",mar=rep(0,4),pch=19);
   
2. t<-seq(0,2*pi,length=1000);
   
3. x<-2*(2*sin(t))^3;
   
4. y<-13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t);
   
5. plot(c(-20,20),c(-20,20),type="n",xlab="",ylab="");
   
6. points(x,y,col=rgb(1,0,0.2),cex=4);
   
7. x1<-runif(12000,-20,20);
   
8. y1<-runif(12000,-20,20);
   
9. points(x1,y1,col=rgb(1,0,0.2,alpha=0.01),cex=2.5);
   
10. borderx<-c(rep(-20:20,2),rep(-20,39),rep(20,39));
    
11. bordery<-c(rep(20,41),rep(-20,41),rep(-19:19,2));
    
12. repeat{
    
13. color=sample(rainbow(50));
    
14. points(borderx,bordery,col=color,cex=1.5);
    
15. }

复制代码

扫码加我 拉你入群

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

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

分享1 收藏2 回帖

关键词：Mar pch 七夕 七夕代码

1. twoway function y=-3*(1-(abs(x)/2)^0.5)^0.5, range(-4 4) || ///
   
2.         function y= (1-(abs(x)-1)^2)^0.5, range(-4 4) yscale(range(-3 1)) ///
   
3.         graphregion(fcolor(pink)) title("七夕" , size(vhuge)  ///
   
4.         margin(bottom)) legend(off) yscale(off) xscale(off)

复制代码

感谢分享，自己在Stata中也找到了个类似的代码。