基础用法

library(DT)
datatable(iris)

在上面的表格中，搜索框提供了针对所有数据进行检索的功能，检索词可以是文本、数值或其它任意的数据项。检索结果实时显示，如果没有找到任何结果则显示为空白。

语法

datatable 的语法如下所示。

datatable(data, options = list(), class = "display",
    callback = JS("return table;"), rownames, colnames, container,
    caption = NULL, filter = c("none", "bottom", "top"), escape = TRUE,
    style = "default", width = NULL, height = NULL, elementId = NULL,
    fillContainer = getOption("DT.fillContainer", NULL),
    autoHideNavigation = getOption("DT.autoHideNavigation", NULL),
    selection = c("multiple", "single", "none"), extensions = list(),
    plugins = NULL, editable = FALSE)

样式和显示相关参数

class：设置原始的类，类名来自于 default.css 或者 bootstrap.css
style：默认仅支持 default 和 bootstrap 的 CSS 样式表
rownames：是否显示行名，或者指定行名（向量或者一一对应的列表）
colnames：是否显示列名，或者指定列名
caption：表格的标题
escape：是否转义 HTML 字符（默认为不转义）

bootstrap 样式的名称可以在此查询。

需要注意的是 DT 会自动矫正样式名称，使用下面的命令可以查看具体对应的样式。此外，样式的实际显示效果与网站采用的基础CSS框架有很大关系，因此每个人运行下列代码得到的最终显示结果可能会有明显差别。

DT:::DT2BSClass('display')

## [1] "table table-striped table-hover row-border order-column display"

DT:::DT2BSClass(c('compact', 'cell-border'))

## [1] "table table-condensed table-bordered"

换一个样式看看。

# 使用 bootstrap.css
datatable(iris, style = 'bootstrap', class = 'table-bordered')

再换一个样式看看，同时改变列名，显示caption。

# 使用 default.css
datatable(head(iris), class = 'cell-border stripe', 
          colnames = c('Another Better Name' = 2, 'Yet Another Name' = 4),
          caption = 'Table 1: This is a simple caption for the table.')

当表格内容为 HTML 代码时，可以打开转义设置。

m = matrix(c(
  '<b>Bold</b>', '<em>Emphasize</em>', '<a href="http://rstudio.com">RStudio</a>',
  '<a href="#" onclick="alert(\'Hello World\');">Hello</a>'
), 2)
colnames(m) = c('<span style="color:red">Column 1</span>', '<em>Column 2</em>')
datatable(m, escape = FALSE)

实时编辑

editable：允许双击启用实时编辑。不仅可以接受逻辑值，还可以接受字符和列表（用于配置可编辑的区域）。

编辑可以分为客户端和服务端，在下面的编辑只能保留在客户端。

DT::datatable(head(iris), editable = 'cell')

如果需要在服务端写入修改的结果，则需要配置服务端的响应（示例：https://yihui.shinyapps.io/DT-edit/）。

过滤数据

filter：支持实时过滤数据

不同的类型将会以不同的形式提供过滤选项。

数字、时间、日期：显示为滑块，指定范围
因子：显示为复选框
文本：显示为文本输入

d = data.frame(
  names = rownames(mtcars),
  date = as.Date('2015-03-23') + 1:32,
  time = as.POSIXct('2015-03-23 12:00:00', tz = 'UTC') + (1:32) * 5000,
  stringsAsFactors = FALSE
)
str(d)

## 'data.frame':    32 obs. of  3 variables:
##  $ names: chr  "Mazda RX4" "Mazda RX4 Wag" "Datsun 710" "Hornet 4 Drive" ...
##  $ date : Date, format: "2015-03-24" "2015-03-25" ...
##  $ time : POSIXct, format: "2015-03-23 13:23:20" "2015-03-23 14:46:40" ...

datatable(d, filter = 'top', options = list(pageLength = 5))

指定显示框架

container：可以将数据填入一个指定的 HTML 框架

# a custom table container
sketch = htmltools::withTags(table(
  class = 'display',
  thead(
    tr(
      th(rowspan = 2, 'Species'),
      th(colspan = 2, 'Sepal'),
      th(colspan = 2, 'Petal')
    ),
    tr(
      lapply(rep(c('Length', 'Width'), 2), th)
    )
  )
))
print(sketch)

## <table class="display">
##   <thead>
##     <tr>
##       <th rowspan="2">Species</th>
##       <th colspan="2">Sepal</th>
##       <th colspan="2">Petal</th>
##     </tr>
##     <tr>
##       <th>Length</th>
##       <th>Width</th>
##       <th>Length</th>
##       <th>Width</th>
##     </tr>
##   </thead>
## </table>

# use rownames = FALSE here because we did not generate a cell for row names in
# the header, and the header only contains five columns
datatable(iris[1:20, c(5, 1:4)], container = sketch, rownames = FALSE)

JS 回调函数

# 初始化后显示第二页
datatable(head(iris, 30), callback = JS('table.page("next").draw(false);'))

DT软件包的使用