每日干貨好文分享丨請(qǐng)點(diǎn)擊+關(guān)注

歡迎關(guān)注天善智能微信公眾號(hào)，我們是專注于商業(yè)智能BI，大數(shù)據(jù)，數(shù)據(jù)分析領(lǐng)域的垂直社區(qū)。

對(duì)商業(yè)智能BI、數(shù)據(jù)分析挖掘、大數(shù)據(jù)、機(jī)器學(xué)習(xí)，python，R感興趣同學(xué)加微信：fridaybifly，邀請(qǐng)你進(jìn)入頭條數(shù)據(jù)愛好者交流群，數(shù)據(jù)愛好者們都在這兒。

今天向大家分享自己編的繪制萬花規(guī)的函數(shù)，只需修改幾個(gè)簡單的參數(shù)就會(huì)帶給你一個(gè)不一樣的驚喜，直接把代碼分享給大家。

代碼：

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實(shí)現(xiàn)

這里就不再寫博文，具體文檔大家可以試著練一下，原文鏈接下載數(shù)據(jù)集，效果演示：

對(duì)商業(yè)智能BI、數(shù)據(jù)分析挖掘、大數(shù)據(jù)、機(jī)器學(xué)習(xí)，python，R感興趣同學(xué)加微信：fridaybifly，邀請(qǐng)你進(jìn)入頭條數(shù)據(jù)愛好者交流群，數(shù)據(jù)愛好者們都在這兒。

轉(zhuǎn)載請(qǐng)保留以下內(nèi)容：

本文來源自天善社區(qū)EasyCharts的博客，EasyCharts公眾號(hào)。

原文地址：https://ask./blog/EasyCharts/6325 。