R语言ggplot2作图好玩的配色包~宫崎骏动画配色

R包的github主页

https://github.com/ewenme/ghibli

github主页提到了颜色参考了这个链接 https://moviesincolor.com/

R包的名字是ghibli,查了下这个单词是吉普力工作室的意思，吉普力工作室和宫崎骏之间的关系我不是铁杆粉，我也搞不明白，下面涉及到的几部动画我都同意称为宫崎骏动画了。

这个配色包里涉及到8部动画的配色

image.png

Marnie 对应的是 When Marnie Was There 中文名是

image.png

Ponyo 对应的是 Ponyo on the Cliff，中文名是

image.png

Laputa 对应的是 Laputa: Castle in the Sky 这个比较出名了

image.png

Mononoke 对应的是 Mononoke-hime / Princess Mononoke 中文名是

image.png

Spirited 对应的是 Spirited Away，只看英文名我是猜不到是哪部电影 （千与千寻）

image.png

Yesterday对应的是 Only Yesterday 中文名是

image.png

Kiki 对应的是 Kiki's Delivery Service 这个英文名直译过来是 kiki的快递业务 哈哈哈哈

image.png

Totoro 对应的是 My Neighbor Totoro 中文名是

image.png

以上内容都是百度百科摘过来的 https://baike.baidu.com/item/%E5%90%89%E5%8D%9C%E5%8A%9B%E5%B7%A5%E4%BD%9C%E5%AE%A4/7389798

接下来是介绍代码

首先需要安装这个R包

install.packages("ghibli")

查看包的帮助文档

help(package="ghibli")
library(ghibli)
ghibli_palettes

这个颜色可以应用于连续型数据或者离散数据，提供的函数分别是
scale_color_ghibli_c()和scale_color_ghibli_d()

比如做一个柱形图，用龙猫的配色

df1<-data.frame(x=letters[1:7],
                y=5)

library(ggplot2)
ggplot(data=df1,aes(x=x,y=y,fill=x))+
  geom_col(show.legend = F)+
  scale_fill_ghibli_d("TotoroMedium") -> p1

ggplot(data=df1,aes(x=x,y=y,fill=x))+
  geom_col(show.legend = F)+
  scale_fill_ghibli_d("TotoroMedium",
                      direction = -1) -> p2

library(patchwork)
p1+p2

image.png

连续型的数据的话

df2<-data.frame(x=letters[1:7],
                y=1:7)

library(ggplot2)
ggplot(data=df2,aes(x=x,y=y,fill=y))+
  geom_col(show.legend = F)+
  scale_fill_ghibli_c("PonyoMedium") -> p3

ggplot(data=df2,aes(x=x,y=y,fill=y))+
  geom_col(show.legend = F)+
  scale_fill_ghibli_c("PonyoMedium",
                      direction = -1) -> p4

library(patchwork)
p3+p4

image.png

应该仔细研究下这个R包的代码，看看能不能搞一个火影忍者的配色

欢迎大家关注我的公众号

小明的数据分析笔记本

小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！