如何用ggplot輕松搞定太極圖

本篇文章給大家分享的是有關(guān)如何用ggplot輕松搞定太極圖，小編覺(jué)得挺實(shí)用的，因此分享給大家學(xué)習(xí)，希望大家閱讀完這篇文章后可以有所收獲，話(huà)不多說(shuō)，跟著小編一起來(lái)看看吧。

ggplot的圖層語(yǔ)法給了使用者無(wú)限種可能，再配合上自己對(duì)于數(shù)據(jù)操縱的靈活把控，真的不知道ggplot可以給我們呈現(xiàn)出什么的驚艷作品。

這不，清明假期無(wú)聊的我，用ggplot搞定了太極陰陽(yáng)圖。

library("ggplot2")

library(Cairo)

library(ggmap)

太極圖的構(gòu)造理念相當(dāng)簡(jiǎn)單，取笛卡爾坐標(biāo)系的0點(diǎn)為圓心，其他 所有元素都是圍繞零點(diǎn)圓心的坐標(biāo)構(gòu)成。

• 該圖涉及到一個(gè)大圓環(huán)；

• 兩個(gè)大半圓面積圖（太極的上下黑白部分）；

• 兩個(gè)小半圓面積圖（太極的左右次半圓）；

• 以及陰陽(yáng)魚(yú)的黑白小圓（這里沒(méi)有構(gòu)造數(shù)據(jù)而是通過(guò)實(shí)心圓點(diǎn)來(lái)表示的）。

以下是數(shù)據(jù)構(gòu)造過(guò)程：

bigcirclex<-seq(from=-1000,to=1000,length=10000)

bigcirclex<-c(bigcirclex,rev(bigcirclex))

太極圖X軸橫坐標(biāo)

bigcircley<-c(sqrt(1000000-bigcirclex^2),-sqrt(1000000-bigcirclex^2))

#Y軸縱坐標(biāo)

這里的

upcirclex<-bigcirclex[1:10000]

upcircley<-bigcircley[1:10000]

downcirclex<-bigcirclex[1:10000]

downcircley<--bigcircley[1:10000]

上下次半圓的橫縱坐標(biāo)

左右小圓的橫縱坐標(biāo)

leftcirlex<-seq(from=-1000,to=0,length=1000)

leftcirley<-sqrt(250000-(leftcirlex+500)^2)

rightcirclex<-seq(from=0,to=1000,length=1000)                

rightcircley<-sqrt(250000-(rightcirclex-500)^2)

作圖函數(shù)：

setwd("F:/數(shù)據(jù)可視化/R/R語(yǔ)言學(xué)習(xí)筆記/可視化/ggplot2/商務(wù)圖表")

CairoPNG(file="taiji.png",width=1000,height=1000)

ggplot(data=NULL)+

geom_area(aes(upcirclex,upcircley),fill="white",col=NA)+

geom_area(aes(downcirclex,downcircley),fill="black",col=NA)+

geom_area(aes(leftcirlex,-leftcirley),fill="white",col=NA)+

geom_area(aes(rightcirclex,rightcircley),fill="black",col=NA)+

coord_flip()+

annotate("text",x=-500,y=0,label="●", color= "black", size=80)+

annotate("text",x=500,y=0,label="●", color= "white", size=80)+

geom_path(aes(bigcirclex,bigcircley),col="grey60")+

theme_nothing()

dev.off()

以上就是如何用ggplot輕松搞定太極圖，小編相信有部分知識(shí)點(diǎn)可能是我們?nèi)粘９ぷ鲿?huì)見(jiàn)到或用到的。希望你能通過(guò)這篇文章學(xué)到更多知識(shí)。更多詳情敬請(qǐng)關(guān)注億速云行業(yè)資訊頻道。