作者简介Introduction

杜雨，EasyCharts团队成员，R语言中文社区专栏作者，兴趣方向为：Excel商务图表，R语言数据可视化，地理信息数据可视化。

个人公众号：数据小魔方（微信ID：datamofang） ，“数据小魔方”创始人。

精彩集锦·

那些年倒腾的R语言学习笔记，全都在这里了~

点击图片，领取限时优惠

今天跟大家介绍一款任坤大神写的新包——formattable。

这个包的功能很简单，但是却很具创意性，它颠覆了R语言data.frame数据表的呈现方式，允许在表格内自定义视觉化元素，比如对某一列数据进行字号、颜色、背景、以及图形化处理，整体的版式仍然保留表格的样式，但是已经具有了表和图结合的意味。

关于数据框的呈现方式，R语言内目前较好的自定义呈现方式是谢益辉大神的DT包，可以 将静态表格动态化，进行切片、索引、排序操作。

devtools::install_github("renkun-ken/formattable")install.packages("formattable")library("formattable")library("DT")

自定义百分比显示格式。

接触过R语言的都知道R中没有数值形式的百分比，只有浮点型，如果要在数据框中自定义某一列为百分比，则需要使用文本拼接函数将其格式化，但是这样格式化之后，该列便会失去数值格式，转换为字符型变量，无法参数数学运算。

但是formattable包通过扩展内部运算逻辑，不仅可以非常方便的将某一浮点型列自定义为百分比，而且保留其数学运算属性。

p <- percent(c(0.1, 0.02, 0.03, 0.12))p[1] 10.00% 2.00%  3.00%  12.00%p + 0.01[1] 11.00% 3.00%  4.00%  13.00%max(p)[1] 12.00%mean(p)[1] 6.75%class(p)[1] "formattable" "numeric"

通过查看其S3类发现，formattable格式继承了numeric属性，因而保留了数学运算能力。

balance <- accounting(c(1000, 500, 200, -150, 0, 1200))balance[1] 1,000.00 500.00   200.00   (150.00) 0.00     1,200.00balance + 1000

[1] 2,000.00 1,500.00 1,200.00 850.00   1,000.00 2,200.00

以上accounting函数可以将输出向量自定义为会计上使用的数字合适，三维间隔，同时负值加括号。

class(balance)[1] "formattable" "numeric"

其核心实现方式仍然是通过将其底层S3类继承numeric来实现保留数学运算功能。

p <- data.frame(  id = c(1, 2, 3, 4, 5),   name = c("A1", "A2", "B1", "B2", "C1"),  balance = accounting(c(52500, 36150, 25000, 18300, 7600), format = "d"),  growth = percent(c(0.3, 0.3, 0.1, 0.15, 0.15), format = "d"),  ready = formattable(c(TRUE, TRUE, FALSE, FALSE, TRUE), "yes", "no"))p  id name balance growth ready1  1   A1  52,500    30%   yes2  2   A2  36,150    30%   yes3  3   B1  25,000    10%    no4  4   B2  18,300    15%    no5  5   C1   7,600    15%   yes

在数据框中这些特性也依然能够保留（这是自然地，因为数据框就是由若干个等长的向量组成的）

但是这仅仅是formattable很基础的功能部分，下面给大家展示它的杀手锏——针对数据框表格的超强自定义可视化能力。

df <- data.frame(  id = 1:10,  name = c("Bob", "Ashley", "James", "David", "Jenny",     "Hans", "Leo", "John", "Emily", "Lee"),   age = c(28, 27, 30, 28, 29, 29, 27, 27, 31, 30),  grade = c("C", "A", "A", "C", "B", "B", "B", "A", "C", "C"),  test1_score = c(8.9, 9.5, 9.6, 8.9, 9.1, 9.3, 9.3, 9.9, 8.5, 8.6),  test2_score = c(9.1, 9.1, 9.2, 9.1, 8.9, 8.5, 9.2, 9.3, 9.1, 8.8),  final_score = c(9, 9.3, 9.4, 9, 9, 8.9, 9.25, 9.6, 8.8, 8.7),  registered = c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE),  stringsAsFactors = FALSE)

以上是使用普通的输出打印出的数据框呈现方式，那么通过formattable函数格式化之后的数据表格又长什么样呢，人让我们拭目以待。

formattable(df,         list(               age = color_tile("white", "orange"),               grade = formatter(                                  "span",                                   style = x ~ ifelse(x == "A", style(color = "green", font.weight = "bold"), NA)                                  ),              area(col = c(test1_score, test2_score)) ~ normalize_bar("pink", 0.2),              final_score = formatter(                                  "span",                                  style = x ~ style(color = ifelse(rank(-x) <= 3, "green", "gray")),                                  x ~ sprintf("%.2f (rank: %02d)", x, rank(-x))                                  ),             registered = formatter(                                  "span",                                   style = x ~ style(color = ifelse(x, "green", "red")),                                   x ~ icontext(ifelse(x, "ok", "remove"), ifelse(x, "Yes", "No"))                                   )             )         )

是不是很神奇呀，仔细观察以上表格中，一共使用了三种自定义可视化类型，分别是字体大小和颜色自定义、字体背景自定义、以及文本自定义。

color_tile函数用于输出按照数值量级进行颜色背景填充的列。

formatter函数提供字体显示格式的自定义，grade列自定义了值为A的记录显示绿色，并将字体加粗，否则忽略。
test1_score, test2_score两列通过area函数在对应字体背景位置使用条形图来代表指标量级大小，颜色填充粉色。
final_score列对指标按照top3显示绿色，其余显示灰色，同时将内容显示格式自定义为浮点型+(rank:名次)进行显示。
registered列则在对填充颜色按照对应布尔值进行显示（TRUE显示绿色、FALSE显示红色）之外，在左侧添加了对用的icon文本（TRUE显示绿色对号，FALSE显示红色叉号）。

是不是很神奇呀，一个小小的包竟然可以做这么有趣的事情，这种表格在财务数据、营销数据或者绩效数据表中是经常会用到的可视化形式，简单明了，非常醒目。

DT::datatable(df)

而DT的datatable函数，则仅仅是通过动态交互的形式提供了一个可交互的表格UI环境。

本项目主页地址：

https://github.com/renkun-ken/formattable

相关课程推荐

体系全面，最具调性！R语言可视化&商务图表实战课程：

点击“阅读原文”开启新姿势