Мне нужен самый простой способ отрегулировать ширину столбца в R, используя таблицы данных (или другой пакет таблицы)

Question

Я надеюсь, что это простая проблема. У меня есть таблица, которая выделяет самые высокие и самые низкие значения в каждой строке разными цветами.

Теперь я просто хочу уменьшить ширину 1-го столбца, поскольку его данные должны занимать всего ~ 3 символа в поперечнике. Заголовок длиннее, поэтому, возможно, мне нужно разрешить перенос этого текста?

Буду признателен за любые указания, использующие DT или любые другие простые пакеты R.

Я пробовал "columns.width", columnDefs "и columns.adjust ()", но, похоже, ничего не работает.

sym4[1:9, 1:6] %>% datatable(options=list(rowCallback = JS(
    'function(row, data) {
    var num_data = data.slice(1,data.length)
    num_data.sort(function (a, b) {  return a - b;  });
    for(i=1;i < data.length; i++) {
    if(data[i]==num_data[num_data.length-1]) {
      $("td:eq("+i+")", row).css("background-color", "green")
    } else if(data[i]==num_data[num_data.length-2]) {
       $("td:eq("+i+")", row).css("background-color", "orange")
    }
    }
   }')))