用数据可视化之美逼死密集恐惧症

r <- 10

y <- -sqrt(r^2-x^2)

df_cirle <- data.frame(x = c(x,0), y = c(y,5),z=2)

df_cirle$z[nrow(df_cirle)] <- 16

ggplot()+

geom_emoji(data=http://bigdata.51cto.com/art/201711/df_cirle,mapping=aes(x=x,y=y,image='1f602',size=z))+

scale_y_continuous(limits = c(-10,12))+

scale_size_area(max_size = 0.3)+

labs(x= "",y="",title="众星捧月式笑哭")+

guides(size=F)+

theme1

众星捧月式笑哭

x <- seq(-10,10,length.out = 100) 
y <- 2/(x^2-2) 
shift <- 3 
x1 <- rep(seq(min(x)-shift,max(x)+shift,length.out = 150),2) 
y1 <- c(rep(min(y)-shift,150),rep(max(y)+shift,150)) 
x2 <-  c(rep(min(x)-shift,150),rep(max(x)+shift,150)) 
y2 <- rep(seq(min(y)-shift,max(y)+shift,length.out = 150),2) 
 
df_orz <- data.frame(x=c(x,x1,x2),y=c(y,y1,y2)) 
 
ggplot(df_orz,aes(x=x,y=y))+ 
  geom_emoji(aes(image='1f602'))+ 
  labs(x= "",y="",title="囧式笑哭")+ 
  theme1

用数据可视化之美逼逝世密集恐怖症

囧式笑哭

# 金拱门 
x <- seq(0,2*pi,length.out = 100) 
y <- abs(sin(x)) 
 
df_m <- data.frame(x=x,y=y) 
 
ggplot(df_m,aes(x=x,y=y))+ 
  geom_emoji(aes(image='1f602'))+ 
  labs(x= "",y="",title="金拱门式笑哭")+ 
  theme1

用数据可视化之美逼逝世密集恐怖症

金拱门式笑哭

四叶草式笑哭

# 四叶草 
x <- seq(0,2*pi,length.out = 100) 
y <- cos(4*x) 
	
			 2/4   首页 上一页 1 2 3 4 下一页 尾页	
			

　　推荐阅读
　　一道数据库的简单面试题
            Tech Neo技巧沙龙 | 11月25号，九州云/ZStack与您一路商量云时代收集界线治理实践
            WITH emp AS (     SELECT         tbD. NAME,         tbE. ID     FROM         tbDepartmemtEmployee >>>详细阅读


本文标题：用数据可视化之美逼死密集恐惧症
地址：http://www.17bianji.com/lsqh/39089.html
 1/2    1