R包的github主页
https://github.com/ewenme/ghibli
github主页提到了颜色参考了这个链接 https://moviesincolor.com/
R包的名字是ghibli,查了下这个单词是吉普力工作室的意思，吉普力工作室和宫崎骏之间的关系我不是铁杆粉，我也搞不明白，下面涉及到的几部动画我都同意称为宫崎骏动画了。
这个配色包里涉及到8部动画的配色
Marnie 对应的是 When Marnie Was There 中文名是
Ponyo 对应的是 Ponyo on the Cliff，中文名是
Laputa 对应的是 Laputa: Castle in the Sky 这个比较出名了
Mononoke 对应的是 Mononoke-hime / Princess Mononoke 中文名是
Spirited 对应的是 Spirited Away，只看英文名我是猜不到是哪部电影 （千与千寻）
Yesterday对应的是 Only Yesterday 中文名是
Kiki 对应的是 Kiki's Delivery Service 这个英文名直译过来是 kiki的快递业务 哈哈哈哈
Totoro 对应的是 My Neighbor Totoro 中文名是
以上内容都是百度百科摘过来的 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
连续型的数据的话
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
应该仔细研究下这个R包的代码，看看能不能搞一个火影忍者的配色
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！
