用优雅的配色来缔造图表专业主义~

发表于 | 分类于 | | 阅读次数
| 字数统计 1,860 字 | 阅读时长 9 分钟

总觉得以前自己写的东西太过琐碎，纠结于步骤和技巧，而没有任何体系上和理念上的输出；

而再加上自己文风粗陋（毕竟每一篇的错别字用十个手指头都数不完呀）、排版拙劣，还有那么多小伙伴儿不离不弃，肯于点赞，实在是感到惭愧（我一般都很少看自己写的东西的不忍直视哈哈）~

可能之前限于能力和实力，一直在跟着别人的步调走，始终在模仿；再加上自己过于追求数量，在质量上用心不多。

不过现在自我感觉好一些了，开始慢慢的思考一些深度的技巧运用，偶尔也会有一些纯理念的总结。

以后的更新频率打算保持在一周2~3篇左右，但是每一篇的内容会向着综合性、应用性方向转变。当然，关于内容排版和文章封面图都会多花一些心思，尽可能的提升一下阅读体验。

下面是今天的干货~

今天要跟大家分享的是如何在实际图表场景中运用ggtech包的配色及主题，案例是关于全球互联网公司市值比较（数据皆为真实数据，来源于搜狐网）。

数据准备：

因为基础的ggplot2语法已经介绍过了，这里我就不介绍具体步骤了，直接使用最终调试好的代码。

加载包：

1
2
library("ggplot2")
library("ggtech")

数据导入：

1
2
mydata <- read.table("clipboard", header = T, sep = '\t')
newdata<-mydata[1:5,]

案例演示：

柱形图（全球市值top5互联网公司 ）

数据截止2015年，单位：十亿美元

Airbnb风格:

1
2
3
4
5
6
7
8
9
ggplot(newdata,aes(reorder(Name,-Value),Value,fill=Name))+geom_bar(stat="identity")+
      theme_tech(theme="airbnb") + 
      scale_fill_tech(theme="airbnb") +
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      theme(axis.title = element_blank(),
      legend.position=c(0.85,0.8)
      )

Esty风格：

1
2
3
4
5
6
7
8
9
ggplot(newdata,aes(reorder(Name,-Value),Value,fill=Name))+geom_bar(stat="identity")+
      theme_tech(theme="etsy") + 
      scale_fill_tech(theme="etsy") +
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      theme(axis.title = element_blank(),
      legend.position=c(0.85,0.8)
      )

Fackbook风格：

1
2
3
4
5
6
7
8
9
ggplot(newdata[1:4,],aes(reorder(Name,-Value),Value,fill=Name))+geom_bar(stat="identity")+
      theme_tech(theme="facebook") +
      scale_fill_tech(theme="facebook") + 
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      theme(axis.title = element_blank(),
      legend.position=c(0.85,0.8)
      )

Google风格：

1
2
3
4
5
6
7
8
9
ggplot(newdata[1:4,],aes(reorder(Name,-Value),Value,fill=Name))+geom_bar(stat="identity")+
      theme_tech(theme="google") + 
      scale_fill_tech(theme="google") + 
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      theme(axis.title = element_blank(),
      legend.position=c(0.85,0.8)
      )

Twitter风格：

1
2
3
4
5
6
7
8
9
ggplot(newdata[1:4,],aes(reorder(Name,-Value),Value,fill=Name))+geom_bar(stat="identity")+
      theme_tech(theme="twitter") + 
      scale_fill_tech(theme="twitter") + 
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      theme(axis.title = element_blank(),
      legend.position=c(0.85,0.8)
      )

饼图

以下用饼图来呈现前五大互联网公司的相对市值大小：

Airbnb风格:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ggplot(newdata,aes(x=1,y=Value,fill=Name))+
      geom_bar(stat="identity",color="white")+
      theme_tech(theme="airbnb") + 
      scale_fill_tech(theme="airbnb") +
      coord_polar(theta = "y",start=0)+
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.text = element_blank(),
           axis.ticks = element_blank(),
           axis.title = element_blank(),
           axis.line=element_blank(),
           legend.position=c(0.1,0.1)
           )

Esty风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ggplot(newdata,aes(x=1,y=Value,fill=Name))+
      geom_bar(stat="identity",color="white")+
      theme_tech(theme="etsy") + 
      scale_fill_tech(theme="etsy") +
      coord_polar(theta = "y",start=0)+
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.text = element_blank(),
           axis.ticks = element_blank(),
           axis.title = element_blank(),
           axis.line=element_blank(),
           legend.position=c(0.1,0.1)
           )

Fackbook风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ggplot(newdata[1:4,],aes(x=1,y=Value,fill=Name))+
      geom_bar(stat="identity",color="white")+
      theme_tech(theme="facebook") +
      scale_fill_tech(theme="facebook") + 
      coord_polar(theta = "y",start=0)+
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.text = element_blank(),
           axis.ticks = element_blank(),
           axis.title = element_blank(),
           axis.line=element_blank(),
           legend.position=c(0.1,0.1)
           )

Google风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ggplot(newdata[1:4,],aes(x=1,y=Value,fill=Name))+
      geom_bar(stat="identity",color="white")+
      theme_tech(theme="google") + 
      scale_fill_tech(theme="google") + 
      coord_polar(theta = "y",start=0)+
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.text = element_blank(),
           axis.ticks = element_blank(),
           axis.title = element_blank(),
           axis.line=element_blank(),
           legend.position=c(0.1,0.1)
           )

Twitter风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ggplot(newdata[1:4,],aes(x=1,y=Value,fill=Name))+
      geom_bar(stat="identity",color="white")+
      theme_tech(theme="twitter") + 
      scale_fill_tech(theme="twitter") + 
      coord_polar(theta = "y",start=0)+
      labs(title="Top5 Internet Companies", 
      subtitle="Market value of Internet Co in 2015",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.text = element_blank(),
           axis.ticks = element_blank(),
           axis.title = element_blank(),
           axis.line=element_blank(),
           legend.position=c(0.1,0.1)
           )

粗边面积图

接下来用国内BAT三巨头的连续7年市值数据制作堆积的粗边面积图：

数据来源于www.14du.com 截止2015年，单位：亿美元

导入数据：

1
mynewdata <- read.table("clipboard", header = T, sep = '\t')

使用reshape2包进行转置塑性：

1
2
library("reshape2")
newmydata <- melt(mynewdata, id.vars = c("Year"),variable.name = "Name", value.name = "Value")

Airbnb风格:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ggplot(newmydata,aes(Year,Value,group=Name,fill=Name))+
      geom_area(position="stack")+
      geom_line(col="grey60",size=2,position="stack")+
      theme_tech(theme="airbnb") + 
      scale_fill_tech(theme="airbnb") +
      labs(title="Three Big Giant of Internet Companies in China", 
      subtitle="Market value of Internet Co in China",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.title = element_blank(),
           legend.position=c(0.2,0.6)
           )

Esty风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ggplot(newmydata,aes(Year,Value,group=Name,fill=Name))+
      geom_area(position="stack")+
      geom_line(col="grey60",size=2,position="stack")+
      theme_tech(theme="etsy") + 
      scale_fill_tech(theme="etsy") +
      labs(title="Three Big Giant of Internet Companies in China", 
      subtitle="Market value of Internet Co in China",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.title = element_blank(),
           legend.position=c(0.2,0.6)
           )

Fackbook风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ggplot(newmydata,aes(Year,Value,group=Name,fill=Name))+
      geom_area(position="stack")+
      geom_line(col="grey60",size=2,position="stack")+
      theme_tech(theme="facebook") +
      scale_fill_tech(theme="facebook") +
      labs(title="Three Big Giant of Internet Companies in China", 
      subtitle="Market value of Internet Co in China",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.title = element_blank(),
           legend.position=c(0.2,0.6)
           )

Google风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ggplot(newmydata,aes(Year,Value,group=Name,fill=Name))+
      geom_area(position="stack")+
      geom_line(col="grey60",size=2,position="stack")+
      theme_tech(theme="google") + 
      scale_fill_tech(theme="google") + 
      labs(title="Three Big Giant of Internet Companies in China", 
      subtitle="Market value of Internet Co in China",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.title = element_blank(),
           legend.position=c(0.2,0.6)
           )

Twitter风格：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ggplot(newmydata,aes(Year,Value,group=Name,fill=Name))+
      geom_area(position="stack")+
      geom_line(col="orange",size=2,position="stack")+
      theme_tech(theme="twitter") + 
      scale_fill_tech(theme="twitter") + 
      labs(title="Three Big Giant of Internet Companies in China", 
      subtitle="Market value of Internet Co in China",
      caption = "http://www.sohu.com/")+
      guides(fill=guide_legend(title=NULL))+
      theme(
           panel.grid=element_blank(),
           panel.background=element_blank(),
           axis.title = element_blank(),
           legend.position=c(0.2,0.6)
           )

真是不好意思，没有刹住车，糊里糊涂的就写了这么多，也忘记对代码做变量中转了，其实核心代码我就写了三个，其他都是Ctrl+V、Ctrl+V不停地狂点鼠标。

这个ggtech包前天刚分享过的，配色上很惊艳，很有科技范，非常适合用在商业数据分析中，说不定还能给你的领导带来惊喜呢，还等什么呢，赶快来试一试吧！

联系方式：
wechat：ljty1991
Mail:578708965@qq.com
个人公众号：数据小魔方（datamofang）

qq交流群：[魔方学院]298236508

个人简介：
杜雨
财经专业研究僧；
伪数据可视化达人；
文科背景的编程小白；
喜欢研究商务图表与地理信息数据可视化，爱倒腾PowerBI、SAP DashBoard、Tableau、R ggplot2、Think-cell chart等诸如此类的数据可视化软件，创建并运营微信公众号“数据小魔方”。
Mail:578708965@qq.com

备注信息：
知识共享许可协议
本作品采用知识共享署名-非商业性使用 4.0 国际许可协议进行许可。

坚持原创技术分享，您的支持将鼓励我继续创作!