wolfram-mathematica - 如何摆脱 Mathematica 中 ArrayPlot 的灰色边界？

Question

我有以下情节。

lst={{1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 
  0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 
  0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 
  1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1}};
ArrayPlot[lst, Mesh -> All, 
 MeshStyle -> Directive[AbsoluteThickness[3.], Gray, Opacity[0.1]]]

但它看起来并不像我预期的那样，我希望黑色方块的灰色边界/网格被这些黑色方块的颜色所掩盖。只显示白色方块的灰色边界/网格。

Answer 1

这不是使用内置选项 (AFAIK) 可以轻松解决的问题。您可以定义一个自定义函数，该函数仅在您需要的那些行和列处绘制网格线并屏蔽其他行和列。这是我的解决方案:

gridArrayPlot[mat_?MatrixQ, options___] := Module[{dim = Dimensions@mat},
  Show[
    ArrayPlot[mat, Mesh -> ({Range[#1 - 1], Range[#2 - 1]} & @@ dim), options],
    ArrayPlot[mat, Mesh -> ({{0, #1}, {0, #2}} & @@ dim), 
       ColorRules -> {0 -> Directive[Opacity@0, White]}, 
       options /. Opacity[_] :> Opacity[1] /. (RGBColor[___] | GrayLevel[_]) :> White
    ]
  ]
]

上述解决方案首先绘制了一个 ArrayPlot ，在除外边界外的任何地方绘制网格并覆盖第二个 ArrayPlot与 White单元格设置为透明，并绘制 White外边界上的网格线(以掩盖从上一个图中伸出的位)。

您可以将上述函数称为

gridArrayPlot[lst,MeshStyle -> Directive[AbsoluteThickness[3.],Gray,Opacity[0.1]]]

输出是: