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

y <- rnorm(10000,mean = 0,sd=10)

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

ggplot(data = df_norm,mapping = aes(x,y,image='1f602'))+

geom_emoji()+

labs(x= "",y="",title="无招胜有招式笑哭")+

theme1

用数据可视化之美逼逝世密集恐怖症
无招胜有招式笑哭

【编辑推荐】

ECharts, PHP, MySQL, Ajax, JQuery实现前后端数据可视化
座谈数据可视化：如何实现数据可视化?
这些典范实例告诉你：什么是数据可视化
数据可视化之美：经典案例与实践解析
基于Python的Grib数据可视化

【义务编辑：未丽燕 TEL：（010）68476606】

library(ggplot2) 
library(ggimage) 
showtext::showtext.auto(enable = T) 
 
theme1 <-   theme(panel.background = element_rect(fill = "black",color = "black"),plot.background = element_rect(fill="black",color = "black"),panel.grid = element_blank(),plot.title = element_text(hjust=0.5,family = "SimHei",size = 24,color = "#FEFEFE"), 
                  axis.text = element_blank(),axis.ticks = element_blank()) 
# 正弦曲线 
x <- seq(from=0,to=2*pi,length.out = 80) 
y <- sin(x) 
df_sin <- data.frame(x = x,y=y) 
 
ggplot(df_sin,aes(x,y))+ 
  geom_emoji(aes(image='1f602'))+ 
  labs(x= "",y="",title="正弦式笑哭")+ 
  theme1

4/4 首页上一页 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