它山之石可以攻“色”(3)：从 ggtech 提取科技公司配色

前两篇帖子分别提取了 wsj 和 eco 的图表配色方案，ggthemes 里还有一些其他主题配色，但都不及 wsj 和 eco 主题这么精彩，我们就暂时不看了。今天要介绍的是 ggtech 包的颜色。

ggtech 也是 ggplot 的扩展主题包，它从著名科技公司 LOGO 取色做成图表主题，我们也可以借鉴到 Excel 作图里来。ggtech 主题包的主页在：https://github.com/ricardo-bion/ggtech。

要安装 ggtech 包比较麻烦，需要安装 devtools 开发工具包，还可能需要安装Rtools 包等。

devtools::install_github('ricardo-bion/ggtech',dependencies=TRUE)

下面我们模拟几个数据做柱形图，看看 ggtech 主题颜色的显示效果。

加载 ggplot 和 ggtech 主题包：

library(ggplot2)

library(ggtech)

1、使用 Airbnb 主题

df <- data.frame(x="1:5," y="">

ggplot(df,aes(x=x, y=y, fill=factor(x)))+geom_bar(stat='identity')+theme_tech(theme='Airbnb') +scale_fill_tech(theme='airbnb') +ggtitle('Airbnb, ExcelPro')

2、使用 facebook 主题

df <- data.frame(x="1:4," y="">

ggplot(df,aes(x=x, y=y, fill=factor(x)))+geom_bar(stat='identity')+theme_tech(theme='facebook') +scale_fill_tech(theme='facebook') +ggtitle('facebook , ExcelPro ')

3、使用 Google 主题

df <- data.frame(x="1:4," y="">

ggplot(df,aes(x=x, y=y, fill=factor(x)))+geom_bar(stat='identity')+theme_tech(theme='google') +scale_fill_tech(theme='google') +ggtitle('Google , ExcelPro ')

4、使用 etsy 主题

df <- data.frame(x="1:5," y="">

ggplot(df,aes(x=x, y=y, fill=factor(x)))+geom_bar(stat='identity')+theme_tech(theme='etsy') +scale_fill_tech(theme='etsy') +ggtitle('etsy, ExcelPro ')

5、使用 twitter 主题

df <- data.frame(x="1:4," y="">

ggplot(df,aes(x=x, y=y, fill=factor(x)))+geom_bar(stat='identity')+theme_tech(theme='twitter') +scale_fill_tech(theme='twitter') +ggtitle('twitter , ExcelPro ')

在这5组颜色里，facebook 和 twitter 属于蓝色系，比较适合商务工作使用，etsy 比较亮丽，很吸引我的眼球，google 的太鲜艳，Airbnb 的太一般，不建议。

ggtech 主题包的配色就是这5组，且每组只有4或5个颜色，如果类别多出好像会报错。感觉这是个缺陷，如果数据类别多怎么办？

这些颜色你可以用取色器去取出来，不过我看了 ggtech 的帮助信息，里面有说明。

scale_fill_tech(theme = 'airbnb', tech_key = list(airbnb = c('#FF5A5F',

  '#FFB400', '#007A87', '#FFAA91', '#7B0051'), facebook = c('#3b5998',

  '#6d84b4', '#afbdd4', '#d8dfea'), google = c('#5380E4', '#E12A3C', '#FFBF03',

  '#00B723'), etsy = c('#F14000', '#67B6C3', '#F0DA47', '#EBEBE6', '#D0D0CB'),

  twitter = c('#55ACEE', '#292f33', '#8899a6', '#e1e8ed')))

整理一下，查找、替换、分列，得到如下颜色表：

用 hex2dec 函数转换为我们熟悉的10进制的 RGB 代码：

用个小宏把这些颜色设置为底色，制作如下的 ggtech 颜色表：

这个颜色表，你可以留存备查，作图时参考使用，也可以将这5组颜色自定义为 各自的颜色主题文件，如 ExcelPro_ggtech_etsy.xml，取用更方便。略遗憾的是不能满6个格子。

应该还有其他科技公司的 LOGO、网站配色比较适合商务图表的，欢迎大家来分享。

这种方式也可以延伸到，你从自己公司的 LOGO、网站上拾取关键颜色来做图表、PPT，领导会很有熟悉感，更容易认可你的报告。