Сокращение ширины данных, исключение нижней границы и центрирование / выравнивание имен столбцов со значениями столбцов - PullRequest
2 голосов
/ 14 января 2020

Мой код и изображение результирующей таблицы данных приведены ниже.

library(DT)
library(dplyr)

hi <- iris %>% group_by(Species) %>%
  dplyr::summarise(Sepal.Length.Average = mean(Sepal.Length), Sepal.Width.Average = mean(Sepal.Width))


datatable(hi, 
          rownames = FALSE,filter="none",options = list(dom = 't'))

Picture of datatable

  1. Как мне избавиться от этой нижней границы?
  2. Как уменьшить ширину таблицы?
  3. Имя столбца «Виды» не соответствует его значениям. Как я выровняю это как другие два столбца? Всякий раз, когда я использую центрирование, формат получается странным.

Спасибо.

1 Ответ

1 голос
/ 15 января 2020

Как это?

library(DT)
library(dplyr)

hi <- iris %>% group_by(Species) %>%
  dplyr::summarise(
    Sepal.Length.Average = mean(Sepal.Length), 
    Sepal.Width.Average = mean(Sepal.Width)
  )

callback <- 
  "$('table.dataTable.no-footer').css('border-bottom', 'none');"


datatable(
  hi, 
  rownames = FALSE, 
  width = 600,
  filter = "none", 
  callback = JS(callback),
  options = 
    list(
      dom = 't',
      columnDefs = list(
        list(targets = 0, className = "dt-right")
      )
    )
)

enter image description here

Обратите внимание, что нижняя граница по-прежнему отображается в программе просмотра RStudio, но не в браузере.

...