1写在前面
天真的好冷啊,不知道各位穿秋裤了没有,有没有感冒。😘
这期就介绍一下ggokabeito
包,是一个支持ggplot2
和ggraph
的即用型
配色包,喜欢就去安装吧。🤪
再放一张去年拍的雪人照片,哈哈哈哈哈。☃️
![alt](https://i-blog.csdnimg.cn/blog_migrate/8a7cdbc9ce450cec694c866f139cbb9a.jpeg)
2用到的包
rm(list = ls())
#devtools::install_github("malcolmbarrett/ggokabeito")
library(tidyverse)
library(ggokabeito)
library(igraph)
library(ggraph)
library(tidygraph)
3示例数据一
首先是一般的统计描述图,这里的示例数据
我们用diamonds
吧。💎
dat <- diamonds
str(dat)
![alt](https://i-blog.csdnimg.cn/blog_migrate/59720beceea62a3db4b13333a576c13d.png)
4频率直方图
看一下吧,还不错。🤠
dat %>%
ggplot(aes(color, color = color, fill = color)) +
geom_bar() +
theme_bw()+
scale_fill_okabe_ito(name = "Color", alpha = .8) +
scale_color_okabe_ito(name = "Color")
![alt](https://i-blog.csdnimg.cn/blog_migrate/2a6ca53d411534bddd3ca7fab59c2393.png)
5散点图
这里我们做一个小小的处理, 这个数据集实在是太大了,我们在每个不同color
下随机抽取100个
吧。🧐
dat <- dat %>%
group_by(., color) %>%
sample_n(., 100) %>%
ungroup()
DT::datatable(dat)
![alt](https://i-blog.csdnimg.cn/blog_migrate/7e1be52818dc30536d647ca6745e0a4c.png)
dat %>%
ggplot(aes(carat, price, color = color)) +
geom_point() +
theme_bw()+
scale_color_okabe_ito()
![alt](https://i-blog.csdnimg.cn/blog_migrate/5417ab8e103700af7d58da4b902147e4.png)
改一下图例的名字
和透明度
。🥰
dat %>%
ggplot(aes(carat, price, color = factor(color))) +
geom_point() +
theme_bw()+
scale_color_okabe_ito(name = "Color", alpha = .9)
![alt](https://i-blog.csdnimg.cn/blog_migrate/f308da9a296517cff56d8bbe2100404a.png)
6密度图
密度图也很好看,这里最好把透明度改大一点。🤫
dat %>%
ggplot(aes(carat, color = color, fill = color)) +
geom_density() +
theme_bw()+
scale_fill_okabe_ito(name = "Color", alpha = .9) +
scale_color_okabe_ito(name = "Color")
![alt](https://i-blog.csdnimg.cn/blog_migrate/842b8b83410447ed08a6f2c4531e7ef5.png)
7折线图
这个折线图简直跟心动过速一样。😂
dat %>%
ggplot(aes(carat, price, color = color, fill = color)) +
geom_line() +
theme_bw()+
scale_fill_okabe_ito(name = "Color", alpha = .8) +
scale_color_okabe_ito(name = "Color")
![alt](https://i-blog.csdnimg.cn/blog_migrate/0fb2992c4cdd460a619bb09756b4f2a3.png)
8拟合曲线
好看,颜值高!😘
dat %>%
ggplot(aes(x = depth, y = price, colour = color)) +
geom_point(alpha = 0.7) +
geom_smooth(method = "loess", alpha = 0.05, size = 1, span = 1) +
theme_bw()+
scale_color_okabe_ito(name = "Color")
![alt](https://i-blog.csdnimg.cn/blog_migrate/52513c1a04765fadd7e4beb0a0d1470a.png)
9网络图
9.1 示例数据二
这里我们新增一列,后面画图用。😂
highschool <- highschool %>%
mutate(., mon = sample(1:9, nrow(.), replace = T))
DT::datatable(highschool)
![alt](https://i-blog.csdnimg.cn/blog_migrate/73fea5679681e82dd608dab9f492bcce.png)
9.2 构建网络文件
graph <- graph_from_data_frame(highschool)
graph
![alt](https://i-blog.csdnimg.cn/blog_migrate/1773ced8436b1ad6a2bccacf45841b4f.png)
9.3 可视化
ggokabeito
直接支持ggraph
,直接叠加scale_edge_color_okabe_ito
即可。🥳
ggraph(graph, layout = 'kk') +
geom_edge_link(aes(colour = factor(mon))) +
geom_node_point()+
theme_bw()+
scale_edge_color_okabe_ito()
![alt](https://i-blog.csdnimg.cn/blog_migrate/5a610c1c9466442815123ebcbe324df5.png)
![蜂蜜](https://i-blog.csdnimg.cn/blog_migrate/5305000238508149f18b51b55d2060aa.png)
点个在看吧各位~ ✐.ɴɪᴄᴇ ᴅᴀʏ 〰
📍 🤩 ComplexHeatmap | 颜狗写的高颜值热图代码!
📍 🤥 ComplexHeatmap | 你的热图注释还挤在一起看不清吗!?
📍 🤨 Google | 谷歌翻译崩了我们怎么办!?(附完美解决方案)
📍 🤩 scRNA-seq | 吐血整理的单细胞入门教程
📍 🤣 NetworkD3 | 让我们一起画个动态的桑基图吧~
📍 🤩 RColorBrewer | 再多的配色也能轻松搞定!~
📍 🧐 rms | 批量完成你的线性回归
📍 🤩 CMplot | 完美复刻Nature上的曼哈顿图
📍 🤠 Network | 高颜值动态网络可视化工具
📍 🤗 boxjitter | 完美复刻Nature上的高颜值统计图
📍 🤫 linkET | 完美解决ggcor安装失败方案(附教程)
📍 ......
本文由 mdnice 多平台发布