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