background - Mathematica 网格中的多个背景子区域

Question

我无法弄清楚如何定义具有不同颜色背景的几个子区域，如下所示。

任何的想法 ？

非常感谢，

洛杉矶

Grid[Table["g", {4}, {7}],
Background -> {None, None, {{{1, 3}, {1, 3}} -> LightRed}}]

Answer 1

作为旁注，通常的要求是根据值指定背景颜色。

为此，您可以这样做:

k = Table[RandomInteger[{1, 2}], {4}, {7}];
Grid[k,
 Background ->
  {None, None,
   Join[
    Position[k, 1] /. {x_, y_} -> ({x, y} -> LightRed), 
    Position[k, 2] /. {x_, y_} -> ({x, y} -> LightBlue)]
   }]

编辑

如果您事先不知道值的范围，您可以尝试以下操作:

k = Table[RandomInteger[{1, 20}], {4}, {7}];
Grid[k,
 Frame -> All,
 ItemStyle -> Directive[FontSize -> 16], 
 Background ->
  {None, None, 
   Flatten@Array[List[##] ->
                   ColorData["Rainbow"][(k[[##]] - Min@k) / Max@k] &, 
           Dimensions@k]
  }  
]