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

df_flower <- data.frame(x=x,y=y)

ggplot(df_flower,aes(x,y))+

geom_line()+

geom_emoji(aes(image='1f602'))+

coord_polar()+

labs(x= "",y="",title="四叶草式笑哭")+

theme1

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

四叶草式笑哭

万花筒式笑哭

# 万花筒式笑哭 
get_circle <- function(r){ 
  t <- seq(-r,r,length.out = 50*sqrt(r)) 
  x <- rep(t,2) 
  y <- c(sqrt(r^2-t^2),-sqrt(r^2-t^2)) 
  df <- data.frame(x=x,y=y) 
  return(df) 
} 
 
df_circle <- data.frame(x=NULL,y=NULL) 
layer <- 11 
for(i in 1:layer){ 
  df_circle <- rbind(df_circle,get_circle(i)) 
} 
 
ggplot()+ 
  geom_emoji(data = df_circle,aes(x,y,image='1f602'))+ 
  scale_x_continuous(limits = c(-layer,layer))+ 
  labs(x= "",y="",title="万花筒式笑哭")+ 
  theme1

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

囧式笑器

# sigmoid曲线 
sigmoid <- function(x) return(1/(1+exp(-x))) 
x <- seq(from=-10,to=10,length.out = 100) 
y <- sigmoid(x) 
df_sigmoide <- data.frame(x = x,y=y) 
 
ggplot(df_sigmoide,aes(x,y))+ 
  geom_emoji(aes(image='1f602'))+ 
  labs(x= "",y="",title="逻辑回归式笑哭")+ 
  theme1

11阶万花筒式笑哭，是不是比矩阵不知道高到哪去了

无招胜有招式笑哭

# 无招胜有招式笑哭 
x <- rnorm(10000,mean=0,sd=10) 
	
			 3/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