你没见过的ggplot2另类画图！

关注公众号，发送R语言，获取学习资料！

R语言也可以画出艺术品，以下几个图形都是从国外大佬学来的，大家可以开动想象力，ggplot2真的强！

好看的图形

1号作品

library(ggplot2)
library(magrittr)

seq(-3,3,by=0.01) %>% 
  expand.grid(x = ., y = .) %>% 
  ggplot(aes(x = (1-x-sin(y^2)), y = (1+y-cos(x^2))))+
  geom_point(alpha=0.05, shape = 20,size = 0)+
  theme_void()+
  coord_polar()

plot of chunk unnamed-chunk-1

2号作品

seq(-10,10,by=0.05) %>% 
  expand.grid(x=., y=.) %>% 
  ggplot(aes(x = (x+pi*sin(y)), y = (y+pi*sin(x))))+
  geom_point(alpha=0.1, shape=15,size=1,col="darkmagenta")+
  theme_void()

plot of chunk unnamed-chunk-2

3号作品

t <- seq(0,100*pi, length.out=500*100)

data.frame(x = t^(1/2)*cos(t), y = t^(1/2)*sin(t)) %>% 
  rbind(-.) %>% 
  ggplot(aes(x,y))+
  geom_polygon()+
  theme_void()

plot of chunk unnamed-chunk-3

以上就是今天的内容，希望对你有帮助哦！欢迎点赞、在看、关注、转发！

欢迎在评论区留言或直接添加我的微信！

---

欢迎关注公众号：医学和生信笔记

“

医学和生信笔记 公众号主要分享：1.医学小知识、肛肠科小知识；2.R语言和Python相关的数据分析、可视化、机器学习等；3.生物信息学学习资料和自己的学习笔记！

往期回顾