加寬 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"))
                                   )
                       )
          )