七夕之际送各位一段代码

是 否 +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 七夕

给个效果图啊，运行下太慢了

呵呵...

wfldragon 发表于 2013-8-13 21:15
给个效果图啊，运行下太慢了

还好吧，可能是我点取的太多了所以比较慢，里面加了点动画效果传个图片的话效果就没了诶

ryusukekenji 发表于 2013-8-13 21:39
呵呵...

谢谢~

效果不错

好神奇~~~效果不错

好漂亮 高手啊

wonderful~楼主确实高手！受教了！

几个问题请教一下哈:
首先，x和y的那两个函数是怎样想到的啊？
还有，如何在那张图上加上文字，如姓名什么的？
最后，程序写得真好，循环还可以那样用，学到了！