Изменить фон «таблицы параметров» в Mathematica - PullRequest
Новая
       28

Изменить фон «таблицы параметров» в Mathematica

2 голосов
/ 16 сентября 2011

Пожалуйста, примите во внимание: 

listA = {5, 10, 6, 9, 10, 9, 8, 0, 4, 2};
listB = {2, 8, 7, 1, 7, 6, 10, 5, 1, 5};

Column[Function[listNo, 
                LinearModelFit[listNo, x, x]["ParameterTable"]] /@ 
                {listA, listB}]

enter image description here

После предыдущего вопроса по Настройка таблицы ANOVA в Mathematica , я хотел бы знать, как я могу изменитьна фоне вышесказанного.Мне бы хотелось, чтобы у каждого был свой цвет фона.

Используя трюк Велизария, я смог сделать следующее, однако теперь, когда они раскрашены, я понимаю, что эти таблицы не одного размера.Пожалуйста, дайте мне знать, если есть способ обойти эту проблему.

Blockquote

1 Ответ

3 голосов
/ 16 сентября 2011

Вы могли бы сделать что-то вроде 

Column[Style[#[[1]], Background -> #[[2]]] 
     & /@  ({LinearModelFit[#[[1]], x, x]["ParameterTable"], #[[2]]} 
          & /@ {{listA, Yellow}, {listB, Red}})]

enter image description here

Редактировать

Тебе придётся немного поработать над этим, если ты хочешь прямой конец. Что-то вроде: 

listA = {5, 10, 6, 9, 10, 9, 8, 0, 4, 2};
listB = {2, 8, 7, 1, 7, 6, 10, 5, 1, 5};
tit = {"", "Estimate", "Standard Error", "t\[Hyphen]Statistic", 
   "P\[Hyphen]Value"};


Grid[Flatten[
  Join[{{tit}}, (Join[{#[[1]]}, #[[2]]] & /@ 
       Partition[(Riffle[#["BasisFunctions"], #["ParameterTableEntries"]] &@ 
                  LinearModelFit[#, x, x]), 2] & /@ {listA, listB})], 1], 
 Background -> {{White, {None}}, {None, {Pink, Pink, Yellow, Yellow}}}, 
 Dividers -> {2 -> True, 2 -> True}, 
 Frame -> {{True}, {True}}, 
 FrameStyle -> Directive[Thickness[2], Blue]]

enter image description here

...