Tech Neo技巧沙龙 | 11月25号，九州云/ZStack与您一路商量云时代收集界线治理实践

工作原由是如许的：在某个搞技群里有人发了一个11维的蜜汁微笑矩阵用来逼逝世密集恐怖症——

11*11蜜汁微笑矩阵

于是有人用一个[擦汗]的神情表示无语……

可是仅仅一个神情，怎么能以对等的气概怼归去呢?于是——

emoji = '[擦汗]' 
for i in range(11): 
    print(emoji*(i+1)) 

11维下三角擦汗

不过推敲到这种办法只能把神情按离散整数的序列来放置，还不克不及在随便率性的持续数值处放神情。推敲到R中的ggimage包可以用图片来代替散点，于是一个思路就是画散点(曲线)图，然后用神情来代换散点。

然后，进级版的逼逝世密集恐怖症图形就新鲜出炉了——

正弦式笑哭

逻辑回归式笑哭

正态分布式笑哭

# 正态密度曲线 
x <- seq(-5,5,length.out = 100) 
y <- dnorm(x) 
df_norm <- data.frame(x = x,y=y) 
 
ggplot(df_norm,aes(x,y))+ 
  geom_emoji(aes(image='1f602'))+ 
  labs(x= "",y="",title="正态分布式笑哭")+ 
  theme1 

爱心式笑哭

# 心形曲线 
t <- seq(0,2*pi,length.out = 100) 
x <- 16*(sin(t)^3) 
y <- 13*cos(t) - 5*cos(2*t) - 2*cos(3*t)-cos(4*t) 
df_heart <- data.frame(x=x,y=y) 
 
ggplot(df_heart,aes(x=x,y=y))+ 
  geom_emoji(aes(image='1f602'))+ 
  labs(x= "",y="",title="爱心式笑哭")+ 
  theme1 

金拱门式笑哭

众星捧月式笑哭

# 弧形 
x <- seq(-10,10,length.out=40) 	
			
 1/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