加宽 R 数据表列

Question

如图所示，我在 R 中创建了一个数据表。 我有两件事想改变：

1. 我希望第 1 栏更宽，以便在一行中显示所有薪酬范围，例如 15,001 英镑 - 20,000 英镑 - 我该怎么做？

2. 我可以删除搜索栏吗？

这是我当前的代码：

tab1a <- datatable(tab1a,
                   fillContainer = FALSE,
                          rownames = FALSE,
                          extensions = 'Buttons', options = list(
                            columnDefs = list(list(className = "dt-body-right", targets = "_all"),
                                              list(className = "dt-center", targets = "_all")),
                            pageLength = 20,
                            lengthMenu = c(5, 10, 15, 20),
                            dom = 'Bfrtip',
                            buttons = list(
                              list(extend = "pdf", exportOptions = list(columns = ":visible")),
                              list(extend = "excel", exportOptions = list(columns = ":visible")),
                              list(extend = "csv", exportOptions = list(columns = ":visible")),
                              list(extend = "copy", exportOptions = list(columns = ":visible")),
                              list(extend = "print", exportOptions = list(columns = ":visible"))
                            )
                              ))

Answer 1

列的索引从“0”开始。 还设置选项 scrollX=TRUE 和 searching = F。例如，第一列的宽度设置为 200。

datatable(tab1a, 
          fillContainer = FALSE,
                    rownames = FALSE,
                    extensions = 'Buttons',
          options=list(columnDefs = list( list(className = "dt-body-right", targets = "_all"),
                                          list(className = "dt-center", targets = "_all"),
                                          list(width = 200, targets = c(0))
                                         ),
                       autoWidth = TRUE,
                       scrollX=TRUE,
                       searching = F,
                                   pageLength = 20,
                                   lengthMenu = c(5, 10, 15, 20),
                                   dom = 'Bfrtip',
                                   buttons = list(
                                     list(extend = "pdf", exportOptions = list(columns = ":visible")),
                                     list(extend = "excel", exportOptions = list(columns = ":visible")),
                                     list(extend = "csv", exportOptions = list(columns = ":visible")),
                                     list(extend = "copy", exportOptions = list(columns = ":visible")),
                                     list(extend = "print", exportOptions = list(columns = ":visible"))
                                   )
                       )
          )