在數學

Question

更改「參數表」的背景

請考慮：

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}] 

上Customize ANOVA Table in Mathematica繼前一個問題，我想知道我怎樣才能改變上述背景。我希望每個人都有不同的背景顏色。

使用Belisarius技巧我能夠做到以下，但是，現在他們是有色的，我意識到那些表是不一樣的大小。請讓我知道是否有解決顯示問題的方法。

Answer 1

你可以做類似

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

編輯

你必須要工作了這一點A L如果你想要一個直接的結局，那就更多。喜歡的東西：

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]]