13518219792
本篇文章给大家分享的是有关如何用ggplot轻松搞定太极图，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。
我们提供的服务有：网站制作、做网站、微信公众号开发、网站优化、网站认证、天元ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的天元网站制作公司
ggplot的图层语法给了使用者无限种可能，再配合上自己对于数据操纵的灵活把控，真的不知道ggplot可以给我们呈现出什么的惊艳作品。
这不，清明假期无聊的我，用ggplot搞定了太极阴阳图。
library("ggplot2")
library(Cairo)
library(ggmap)
太极图的构造理念相当简单，取笛卡尔坐标系的0点为圆心，其他 所有元素都是围绕零点圆心的坐标构成。
该图涉及到一个大圆环；
两个大半圆面积图（太极的上下黑白部分）；
两个小半圆面积图（太极的左右次半圆）；
以及阴阳鱼的黑白小圆（这里没有构造数据而是通过实心圆点来表示的）。
以下是数据构造过程：
bigcirclex<-seq(from=-1000,to=1000,length=10000)
bigcirclex<-c(bigcirclex,rev(bigcirclex))
太极图X轴横坐标
bigcircley<-c(sqrt(1000000-bigcirclex^2),-sqrt(1000000-bigcirclex^2))
#Y轴纵坐标
这里的
upcirclex<-bigcirclex[1:10000]
upcircley<-bigcircley[1:10000]
downcirclex<-bigcirclex[1:10000]
downcircley<--bigcircley[1:10000]
上下次半圆的横纵坐标
左右小圆的横纵坐标
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)
作图函数：
setwd("F:/数据可视化/R/R语言学习笔记/可视化/ggplot2/商务图表")
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轻松搞定太极图，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。
