louwill，忠实R粉，数据科学爱好者。
个人公众号：数据科学家养成记
往期回顾
小编以前年少无知，只知粗犷放养，不知精耕细作。有幸得到狗熊会各位大大指点，从前的野蛮生长的状态才有所改观。在此之前，小编的统计图画出来是这个样子的：
活生生的丑图百讲素材啊！八字真言没一个字满足。要是搁这弄成作业交上去，闭着眼睛都能听到水妈的怒吼：我要淘汰你！
参加完人才计划后，小编的统计图是这样的：
虽然这张箱线图算不上有多美观精致，但比起前一张已是云泥之别。至少满足了八字真言里的六个字准确简单有效，美观算不上，这里小编没有去找好看的配色。
所以，今天小编就介绍一款ggplot2的扩展配色包——ggtech。ggtech提取了一些知名科技公司 logo 的配色方案，并将其封装到相关的函数中以供用户调用。所以，简单的一个ggtech函数就可以让你的统计图换上Google/Airbnb/Facebook的新装。且看ggtech的具体用法。
按照惯例这类扩展包是需要通过 Git 来安装的：
devtools::install_github("ricardo-bion/ggtech", dependencies=TRUE)
先用 qplot 画个图：
library(ggplot2)
d <- qplot(carat, data = diamonds[diamonds$color %in% LETTERS[4:7],],
geom = "histogram", bins = 30, fill = color)
这张累积柱状图用的是 R 内置的 diamonds 数据集，对于不同克拉数的钻石进行了统计。R 的默认填充颜色有毛病吗？没毛病！我觉得也很中看，但是我们给她换上个爱彼迎的主题配色看看。
ggtech 在调用主题配色的时候主要用到两个函数 theme_tech 和 scale_fill_tech，在指定相关的配色主题之后，你就可以给你的统计图换上耳目一新的颜色啦。
d + theme_tech(theme="airbnb") +
scale_fill_tech(theme="airbnb") +
labs(title="Airbnb theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
有没有感觉到配色很时尚很夺人眼球？！再换个谷歌配色看看。
d + theme_tech(theme="google") +
scale_fill_tech(theme="google") +
labs(title="Google theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
和谷歌 logo 对比一下看看：
瞬间你的土鳖配色就接轨了谷歌。。。
此外还有 Facebook、Twitter以及 Etsy 等一些公司的配色可以选择，大家可以自己去尝试，喜欢哪款就用哪款，你要是都不喜欢小编也没有办法啦。
无聊的话还可以把谷歌的 logo 拿来玩玩，具体怎么玩，由你自己定。
d2 <- data.frame(x = c(1:4, 3:1), y=1:7)
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.25, theme="google") +
theme_tech("google" ) +
ggtitle("Google geom")
今天小编就简单介绍到这里啦，后面内容敬请期待~
参考资料：
https://github.com/ricardo-bion/ggtech
公众号后台回复关键字即可学习
回复 R R语言快速入门及数据挖掘
回复 Kaggle案例 Kaggle十大案例精讲（连载中）
回复 文本挖掘 手把手教你做文本挖掘
回复 可视化 R语言可视化在商务场景中的应用
回复 大数据 大数据系列免费****
回复 量化投资 张丹教你如何用R语言量化投资
回复 用户画像 京东大数据，揭秘用户画像
回复 数据挖掘 常用数据挖掘算法原理解释与应用
回复 机器学习 人工智能系列之机器学习与实践
回复 爬虫 R语言爬虫实战案例分享