ggtech：您有一份来自Airbnb/Google的配色方案需

感谢关注天善智能，走好数据之路↑↑↑

欢迎关注天善智能，我们是专注于商业智能BI，人工智能AI，大数据分析与挖掘领域的垂直社区，学习，问答、求职一站式搞定！

自从参加了人才计划和学习了水妈的丑图百讲之后，小编决心告别直男审美，要按照准确有效简单美观的八字真言把统计图表做好。而统计图很重要的一点就是用好配色，今天小编就介绍一款可以应用Airbnb/Google/Facebook配色方案的ggplot2扩展主题包——ggtech。

小编以前年少无知，只知粗犷放养，不知精耕细作。有幸得到狗熊会各位大大指点，从前的野蛮生长的状态才有所改观。在此之前，小编的统计图画出来是这个样子的：

活生生的丑图百讲素材啊！八字真言没一个字满足。要是搁这弄成作业交上去，闭着眼睛都能听到水妈的怒吼：我要淘汰你！

参加完人才计划后，小编的统计图是这样的：

虽然这张箱线图算不上有多美观精致，但比起前一张已是云泥之别。至少满足了八字真言里的六个字准确简单有效，美观算不上，这里小编没有去找好看的配色。

所以，今天小编就介绍一款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://www.hellobi.com/1111

11月6日年迈的数据分析师教你做年终总结报告

陈丹奕：知乎大神，前百度资深数据分析师

11月7日机器学习与工业实践

邹博：中国科学院副研究员，天津大学特聘教授

11月8日 贝叶斯算法与新闻分类实战

唐宇迪：深度学习领域多年一线实践研究专家，同济大学硕士

11月9日破冰Python，1小时快速入门

王大伟： Python爱好者社区公众号负责人，擅长网络爬虫、数据分析

11月10日 职场也有双11--你贱卖自己的5大常用技巧

陈文：8年经验数据分析师，资深业务顾问