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をプロットし、透明になるように設定White細胞と二ArrayPlotを重ねて、上のWhiteメッシュラインを描きます外側境界（前のプロットから突き出ているビットをマスクする）。

あなたは

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

として上記の関数を呼び出すことができ、出力は次のとおりです。ちょうどグリッド線とメッシュラインを捨てるとEpilogとLineの使用に関する

Answer 2

どのように？

ArrayPlot[lst, Mesh -> False, Frame -> False, 
Epilog -> {GrayLevel[0.5], AbsoluteThickness[1], 
    Line@Table[{{2 + i, 8}, {2 + i, 1}}, {i, 0, 5}], 
    Line@Table[{{1, 2 + i}, {8, 2 + i}}, {i, 0, 5}]}] 

これは明らかに、このデータのリストに固有のものですが、あなたは「×」ユニット黒「境界線」を持っているデータと「Y」倍「Y」白い四角に一般化する簡単です（つまり、y + 2xの行と列のリスト）。

gridArrayPlot[mat_?MatrixQ] := Module[{dim = First@Dimensions@mat, 
    white = Length@Cases[mat, {__, 0 .., __}], black, left, right, grid}, 

    black = (dim - white)/2; 
    left = black + 1; 
    right = dim - black; 
    grid = white - 2; 

    ArrayPlot[mat, Mesh -> False, Frame -> False, 
    Epilog -> {GrayLevel[0.5], AbsoluteThickness[1], 
    Line@Table[{{left + i, right}, {left + i, black}}, {i, 0, grid}], 
     Line@Table[{{black, left + i}, {right, left + i}}, {i, 0, grid}]}] 

    ]