今天向大家分享自己编的绘制万花规的函数,只需修改几个简单的参数就会带给你一个不一样的惊喜,直接把代码分享给大家。
代码:
library(ggplot2)
library(ggthemes)
op = par(mar=c(0,0,0,0),mfrow = c(3, 3),ann=FALSE,col.axis='white',
fg='white')
##r1=c(20,100),r2=c(1,12),s=c(50,200),by>0
flower = function(r1,r2,s,by)
{
r1=r1
r2=r2
s=s
r11=seq(1,360,by=by)
r22=(r1/r2)*r11
x=-(r1-r2)*cos(r11)-s*cos(r22-r11)
y=(r1-r2)*sin(r11)-s*sin(r22-r11)
data=data.frame(x=x,y=y)
plot(x,y,type='l',lwd=0.5,col=2)
#ggplot(data,aes(x,y))+geom_path(colour=r11)+theme_map()
}
flower(20,1,50,0.5)
flower(50,1,50,1)
flower(100,1,50,1)
flower(60,12,50,1)
flower(27,9,50,0.6)
flower(30,7,100,0.5)
flower(100,6,50,0.3)
flower(80,12,20,1)
flower(80,10,50,0.3)
par(op)
效果图:
EXCEL实现
这里就不再写博文,具体文档大家可以试着练一下百度云链接:http://pan.baidu.com/s/1mix4Wu0 密码:f3he,效果演示