前兩篇帖子分別提取了 wsj 和 eco 的圖表配色方案，ggthemes 里還有一些其他主題配色，但都不及 wsj 和 eco 主題這么精彩，我們就暫時不看了。今天要介紹的是 ggtech 包的顏色。
ggtech 也是 ggplot 的擴(kuò)展主題包，它從著名科技公司 LOGO 取色做成圖表主題，我們也可以借鑒到 Excel 作圖里來。ggtech 主題包的主頁在：https://github.com/ricardo-bion/ggtech。
要安裝 ggtech 包比較麻煩，需要安裝 devtools 開發(fā)工具包，還可能需要安裝Rtools 包等。
devtools::install_github('ricardo-bion/ggtech',dependencies=TRUE)
下面我們模擬幾個數(shù)據(jù)做柱形圖，看看 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 屬于藍(lán)色系，比較適合商務(wù)工作使用，etsy 比較亮麗，很吸引我的眼球，google 的太鮮艷，Airbnb 的太一般，不建議。
ggtech 主題包的配色就是這5組，且每組只有4或5個顏色，如果類別多出好像會報錯。感覺這是個缺陷，如果數(shù)據(jù)類別多怎么辦？
這些顏色你可以用取色器去取出來，不過我看了 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 函數(shù)轉(zhuǎn)換為我們熟悉的10進(jìn)制的 RGB 代碼：
用個小宏把這些顏色設(shè)置為底色，制作如下的 ggtech 顏色表：
這個顏色表，你可以留存?zhèn)洳椋鲌D時參考使用，也可以將這5組顏色自定義為 各自的顏色主題文件，如 ExcelPro_ggtech_etsy.xml，取用更方便。略遺憾的是不能滿6個格子。
應(yīng)該還有其他科技公司的 LOGO、網(wǎng)站配色比較適合商務(wù)圖表的，歡迎大家來分享。
這種方式也可以延伸到，你從自己公司的 LOGO、網(wǎng)站上拾取關(guān)鍵顏色來做圖表、PPT，領(lǐng)導(dǎo)會很有熟悉感，更容易認(rèn)可你的報告。
