GraphicsGrid with a Label for each Column and RowPutting a vertical line in each Histogram using GraphicsGridComposite graphics with Row, Column, data aggregation and layout controlControl objects Sizing and placement in Graphicsgrid Vs Grid:Label each panel of GridCombining ArrayPlot and PlotGraphicsGrid Format Problem with SpanFromAboveConstructing a grid from a matrixHow to solve for the intersection points of two ellipses?How to use GraphicsGrid with ListPlots that have a PlotLegend?Rotated Row and Normal Column Headings for a GridPutting a vertical line in each Histogram using GraphicsGrid

Delivering sarcasm

Not using 's' for he/she/it

Offered money to buy a house, seller is asking for more to cover gap between their listing and mortgage owed

Drawing ramified coverings with tikz

Why electric field inside a cavity of a non-conducting sphere not zero?

Why should universal income be universal?

Electoral considerations aside, what are potential benefits, for the US, of policy changes proposed by the tweet recognizing Golan annexation?

Is it safe to use olive oil to clean the ear wax?

Has any country ever had 2 former presidents in jail simultaneously?

What was the exact wording from Ivanhoe of this advice on how to free yourself from slavery?

Why is it that I can sometimes guess the next note?

Should I stop contributing to retirement accounts?

How do I color the graph in datavisualization?

When were female captains banned from Starfleet?

Open a doc from terminal, but not by its name

Where does the bonus feat in the cleric starting package come from?

Count the occurrence of each unique word in the file

Is it possible to have a strip of cold climate in the middle of a planet?

How do you respond to a colleague from another team when they're wrongly expecting that you'll help them?

Biological Blimps: Propulsion

How to implement a feedback to keep the DC gain at zero for this conceptual passive filter?

On a tidally locked planet, would time be quantized?

Longest common substring in linear time

What prevents the use of a multi-segment ILS for non-straight approaches?



GraphicsGrid with a Label for each Column and Row


Putting a vertical line in each Histogram using GraphicsGridComposite graphics with Row, Column, data aggregation and layout controlControl objects Sizing and placement in Graphicsgrid Vs Grid:Label each panel of GridCombining ArrayPlot and PlotGraphicsGrid Format Problem with SpanFromAboveConstructing a grid from a matrixHow to solve for the intersection points of two ellipses?How to use GraphicsGrid with ListPlots that have a PlotLegend?Rotated Row and Normal Column Headings for a GridPutting a vertical line in each Histogram using GraphicsGrid













4












$begingroup$


Is it possible to use GraphicsGrid and do something like this?



$beginarraycccc
textX & Label1 & Label2& Label3\
Label4 & Plot1 & Plot2&Plot3\
Label5 & Plot4 & Plot5&Plot6\
Label6 & Plot7 & Plot8&Plot9\
endarray $










share|improve this question









$endgroup$
















    4












    $begingroup$


    Is it possible to use GraphicsGrid and do something like this?



    $beginarraycccc
    textX & Label1 & Label2& Label3\
    Label4 & Plot1 & Plot2&Plot3\
    Label5 & Plot4 & Plot5&Plot6\
    Label6 & Plot7 & Plot8&Plot9\
    endarray $










    share|improve this question









    $endgroup$














      4












      4








      4





      $begingroup$


      Is it possible to use GraphicsGrid and do something like this?



      $beginarraycccc
      textX & Label1 & Label2& Label3\
      Label4 & Plot1 & Plot2&Plot3\
      Label5 & Plot4 & Plot5&Plot6\
      Label6 & Plot7 & Plot8&Plot9\
      endarray $










      share|improve this question









      $endgroup$




      Is it possible to use GraphicsGrid and do something like this?



      $beginarraycccc
      textX & Label1 & Label2& Label3\
      Label4 & Plot1 & Plot2&Plot3\
      Label5 & Plot4 & Plot5&Plot6\
      Label6 & Plot7 & Plot8&Plot9\
      endarray $







      graphics visualization






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 6 hours ago









      An old man in the sea.An old man in the sea.

      1,089919




      1,089919




















          3 Answers
          3






          active

          oldest

          votes


















          3












          $begingroup$

          If you are willing to forego GraphicsGrid and give up some control over the placement of the decorations, it can be as simple as this:



          Make a 3 x 3 array of graphics (this is adopted from a previous answer}



          circles[n_] :=
          Module[r, cntr,
          r := RandomReal[.25];
          cntr := RandomReal[1, 2];
          Graphics[Table[EdgeForm[Black], Hue[RandomReal[]], Disk[cntr, r], n],
          PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]

          lines[] :=
          Module[lf, rt,
          lf := With[x = RandomReal[.48], Red, Line[x, 0, x, 1]];
          rt := With[x = RandomReal[.52, 1], Blue, Line[x, 0, x, 1]];
          Graphics[lf, rt,
          PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]]

          SeedRandom[4];
          graphics =
          Apply[
          Show,
          Partition[Transpose[Table[circles[8], 9], Table[lines[], 9]], 3],
          2];


          Make the headers:



          colHeaders, rowHeaders = Partition[Table[Style[Row["Label", i], "TBI"], i, 6], 3];


          Make the grid with TableForm:



          TableForm[graphics, TableHeadings -> rowHeaders, colHeaders]


          grid






          share|improve this answer











          $endgroup$




















            3












            $begingroup$

            Here is an option:



            plots = Table[Table[Plot[Sin[i x + j], x, 1, 10], i, 3], j, 3];
            xlabels = "", "Label 1", "Label 2", "Label 3";
            ylabels = "Label 4", "Label 5", "Label 6";
            GraphicsGrid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]]]


            enter image description here



            Updated with a slightly prettier option:



            xlabels = Text[Style[#, Large]] & /@ "", "Label 1", "Label 2", "Label 3";
            ylabels = Text[Style[#, Large]] & /@ "Label 4", "Label 5", "Label 6";
            Grid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]], Spacings -> 2, 1]


            enter image description here






            share|improve this answer











            $endgroup$




















              2












              $begingroup$

              You could construct Graphics for the row and column headings. Something like this. Would have to adjust the vertical / horizontal placement of the label text.



              plotGrid = Table[Plot[Sin[x], x, 0, 2 Pi], 2, 2];

              plotRowHeader =
              Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 2];

              plotColumnHeader =
              Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 3,
              4] // Prepend[Graphics[Style[Text["X"], 12]]];

              graphicsGrid =
              plotGrid // Prepend[plotRowHeader] // Transpose //
              Prepend[plotColumnHeader];

              GraphicsGrid[graphicsGrid]


              enter image description here






              share|improve this answer









              $endgroup$












                Your Answer





                StackExchange.ifUsing("editor", function ()
                return StackExchange.using("mathjaxEditing", function ()
                StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
                StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
                );
                );
                , "mathjax-editing");

                StackExchange.ready(function()
                var channelOptions =
                tags: "".split(" "),
                id: "387"
                ;
                initTagRenderer("".split(" "), "".split(" "), channelOptions);

                StackExchange.using("externalEditor", function()
                // Have to fire editor after snippets, if snippets enabled
                if (StackExchange.settings.snippets.snippetsEnabled)
                StackExchange.using("snippets", function()
                createEditor();
                );

                else
                createEditor();

                );

                function createEditor()
                StackExchange.prepareEditor(
                heartbeatType: 'answer',
                autoActivateHeartbeat: false,
                convertImagesToLinks: false,
                noModals: true,
                showLowRepImageUploadWarning: true,
                reputationToPostImages: null,
                bindNavPrevention: true,
                postfix: "",
                imageUploader:
                brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
                contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
                allowUrls: true
                ,
                onDemand: true,
                discardSelector: ".discard-answer"
                ,immediatelyShowMarkdownHelp:true
                );



                );













                draft saved

                draft discarded


















                StackExchange.ready(
                function ()
                StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193846%2fgraphicsgrid-with-a-label-for-each-column-and-row%23new-answer', 'question_page');

                );

                Post as a guest















                Required, but never shown

























                3 Answers
                3






                active

                oldest

                votes








                3 Answers
                3






                active

                oldest

                votes









                active

                oldest

                votes






                active

                oldest

                votes









                3












                $begingroup$

                If you are willing to forego GraphicsGrid and give up some control over the placement of the decorations, it can be as simple as this:



                Make a 3 x 3 array of graphics (this is adopted from a previous answer}



                circles[n_] :=
                Module[r, cntr,
                r := RandomReal[.25];
                cntr := RandomReal[1, 2];
                Graphics[Table[EdgeForm[Black], Hue[RandomReal[]], Disk[cntr, r], n],
                PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]

                lines[] :=
                Module[lf, rt,
                lf := With[x = RandomReal[.48], Red, Line[x, 0, x, 1]];
                rt := With[x = RandomReal[.52, 1], Blue, Line[x, 0, x, 1]];
                Graphics[lf, rt,
                PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]]

                SeedRandom[4];
                graphics =
                Apply[
                Show,
                Partition[Transpose[Table[circles[8], 9], Table[lines[], 9]], 3],
                2];


                Make the headers:



                colHeaders, rowHeaders = Partition[Table[Style[Row["Label", i], "TBI"], i, 6], 3];


                Make the grid with TableForm:



                TableForm[graphics, TableHeadings -> rowHeaders, colHeaders]


                grid






                share|improve this answer











                $endgroup$

















                  3












                  $begingroup$

                  If you are willing to forego GraphicsGrid and give up some control over the placement of the decorations, it can be as simple as this:



                  Make a 3 x 3 array of graphics (this is adopted from a previous answer}



                  circles[n_] :=
                  Module[r, cntr,
                  r := RandomReal[.25];
                  cntr := RandomReal[1, 2];
                  Graphics[Table[EdgeForm[Black], Hue[RandomReal[]], Disk[cntr, r], n],
                  PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]

                  lines[] :=
                  Module[lf, rt,
                  lf := With[x = RandomReal[.48], Red, Line[x, 0, x, 1]];
                  rt := With[x = RandomReal[.52, 1], Blue, Line[x, 0, x, 1]];
                  Graphics[lf, rt,
                  PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]]

                  SeedRandom[4];
                  graphics =
                  Apply[
                  Show,
                  Partition[Transpose[Table[circles[8], 9], Table[lines[], 9]], 3],
                  2];


                  Make the headers:



                  colHeaders, rowHeaders = Partition[Table[Style[Row["Label", i], "TBI"], i, 6], 3];


                  Make the grid with TableForm:



                  TableForm[graphics, TableHeadings -> rowHeaders, colHeaders]


                  grid






                  share|improve this answer











                  $endgroup$















                    3












                    3








                    3





                    $begingroup$

                    If you are willing to forego GraphicsGrid and give up some control over the placement of the decorations, it can be as simple as this:



                    Make a 3 x 3 array of graphics (this is adopted from a previous answer}



                    circles[n_] :=
                    Module[r, cntr,
                    r := RandomReal[.25];
                    cntr := RandomReal[1, 2];
                    Graphics[Table[EdgeForm[Black], Hue[RandomReal[]], Disk[cntr, r], n],
                    PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]

                    lines[] :=
                    Module[lf, rt,
                    lf := With[x = RandomReal[.48], Red, Line[x, 0, x, 1]];
                    rt := With[x = RandomReal[.52, 1], Blue, Line[x, 0, x, 1]];
                    Graphics[lf, rt,
                    PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]]

                    SeedRandom[4];
                    graphics =
                    Apply[
                    Show,
                    Partition[Transpose[Table[circles[8], 9], Table[lines[], 9]], 3],
                    2];


                    Make the headers:



                    colHeaders, rowHeaders = Partition[Table[Style[Row["Label", i], "TBI"], i, 6], 3];


                    Make the grid with TableForm:



                    TableForm[graphics, TableHeadings -> rowHeaders, colHeaders]


                    grid






                    share|improve this answer











                    $endgroup$



                    If you are willing to forego GraphicsGrid and give up some control over the placement of the decorations, it can be as simple as this:



                    Make a 3 x 3 array of graphics (this is adopted from a previous answer}



                    circles[n_] :=
                    Module[r, cntr,
                    r := RandomReal[.25];
                    cntr := RandomReal[1, 2];
                    Graphics[Table[EdgeForm[Black], Hue[RandomReal[]], Disk[cntr, r], n],
                    PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]

                    lines[] :=
                    Module[lf, rt,
                    lf := With[x = RandomReal[.48], Red, Line[x, 0, x, 1]];
                    rt := With[x = RandomReal[.52, 1], Blue, Line[x, 0, x, 1]];
                    Graphics[lf, rt,
                    PlotRange -> 0, 1, 0, 1, PlotRangeClipping -> True, Frame -> True]]

                    SeedRandom[4];
                    graphics =
                    Apply[
                    Show,
                    Partition[Transpose[Table[circles[8], 9], Table[lines[], 9]], 3],
                    2];


                    Make the headers:



                    colHeaders, rowHeaders = Partition[Table[Style[Row["Label", i], "TBI"], i, 6], 3];


                    Make the grid with TableForm:



                    TableForm[graphics, TableHeadings -> rowHeaders, colHeaders]


                    grid







                    share|improve this answer














                    share|improve this answer



                    share|improve this answer








                    edited 1 hour ago

























                    answered 2 hours ago









                    m_goldbergm_goldberg

                    87.7k872198




                    87.7k872198





















                        3












                        $begingroup$

                        Here is an option:



                        plots = Table[Table[Plot[Sin[i x + j], x, 1, 10], i, 3], j, 3];
                        xlabels = "", "Label 1", "Label 2", "Label 3";
                        ylabels = "Label 4", "Label 5", "Label 6";
                        GraphicsGrid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]]]


                        enter image description here



                        Updated with a slightly prettier option:



                        xlabels = Text[Style[#, Large]] & /@ "", "Label 1", "Label 2", "Label 3";
                        ylabels = Text[Style[#, Large]] & /@ "Label 4", "Label 5", "Label 6";
                        Grid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]], Spacings -> 2, 1]


                        enter image description here






                        share|improve this answer











                        $endgroup$

















                          3












                          $begingroup$

                          Here is an option:



                          plots = Table[Table[Plot[Sin[i x + j], x, 1, 10], i, 3], j, 3];
                          xlabels = "", "Label 1", "Label 2", "Label 3";
                          ylabels = "Label 4", "Label 5", "Label 6";
                          GraphicsGrid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]]]


                          enter image description here



                          Updated with a slightly prettier option:



                          xlabels = Text[Style[#, Large]] & /@ "", "Label 1", "Label 2", "Label 3";
                          ylabels = Text[Style[#, Large]] & /@ "Label 4", "Label 5", "Label 6";
                          Grid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]], Spacings -> 2, 1]


                          enter image description here






                          share|improve this answer











                          $endgroup$















                            3












                            3








                            3





                            $begingroup$

                            Here is an option:



                            plots = Table[Table[Plot[Sin[i x + j], x, 1, 10], i, 3], j, 3];
                            xlabels = "", "Label 1", "Label 2", "Label 3";
                            ylabels = "Label 4", "Label 5", "Label 6";
                            GraphicsGrid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]]]


                            enter image description here



                            Updated with a slightly prettier option:



                            xlabels = Text[Style[#, Large]] & /@ "", "Label 1", "Label 2", "Label 3";
                            ylabels = Text[Style[#, Large]] & /@ "Label 4", "Label 5", "Label 6";
                            Grid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]], Spacings -> 2, 1]


                            enter image description here






                            share|improve this answer











                            $endgroup$



                            Here is an option:



                            plots = Table[Table[Plot[Sin[i x + j], x, 1, 10], i, 3], j, 3];
                            xlabels = "", "Label 1", "Label 2", "Label 3";
                            ylabels = "Label 4", "Label 5", "Label 6";
                            GraphicsGrid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]]]


                            enter image description here



                            Updated with a slightly prettier option:



                            xlabels = Text[Style[#, Large]] & /@ "", "Label 1", "Label 2", "Label 3";
                            ylabels = Text[Style[#, Large]] & /@ "Label 4", "Label 5", "Label 6";
                            Grid[Join[xlabels, Transpose[Join[ylabels, Transpose[plots]]]], Spacings -> 2, 1]


                            enter image description here







                            share|improve this answer














                            share|improve this answer



                            share|improve this answer








                            edited 1 hour ago

























                            answered 5 hours ago









                            MelaGoMelaGo

                            5064




                            5064





















                                2












                                $begingroup$

                                You could construct Graphics for the row and column headings. Something like this. Would have to adjust the vertical / horizontal placement of the label text.



                                plotGrid = Table[Plot[Sin[x], x, 0, 2 Pi], 2, 2];

                                plotRowHeader =
                                Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 2];

                                plotColumnHeader =
                                Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 3,
                                4] // Prepend[Graphics[Style[Text["X"], 12]]];

                                graphicsGrid =
                                plotGrid // Prepend[plotRowHeader] // Transpose //
                                Prepend[plotColumnHeader];

                                GraphicsGrid[graphicsGrid]


                                enter image description here






                                share|improve this answer









                                $endgroup$

















                                  2












                                  $begingroup$

                                  You could construct Graphics for the row and column headings. Something like this. Would have to adjust the vertical / horizontal placement of the label text.



                                  plotGrid = Table[Plot[Sin[x], x, 0, 2 Pi], 2, 2];

                                  plotRowHeader =
                                  Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 2];

                                  plotColumnHeader =
                                  Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 3,
                                  4] // Prepend[Graphics[Style[Text["X"], 12]]];

                                  graphicsGrid =
                                  plotGrid // Prepend[plotRowHeader] // Transpose //
                                  Prepend[plotColumnHeader];

                                  GraphicsGrid[graphicsGrid]


                                  enter image description here






                                  share|improve this answer









                                  $endgroup$















                                    2












                                    2








                                    2





                                    $begingroup$

                                    You could construct Graphics for the row and column headings. Something like this. Would have to adjust the vertical / horizontal placement of the label text.



                                    plotGrid = Table[Plot[Sin[x], x, 0, 2 Pi], 2, 2];

                                    plotRowHeader =
                                    Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 2];

                                    plotColumnHeader =
                                    Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 3,
                                    4] // Prepend[Graphics[Style[Text["X"], 12]]];

                                    graphicsGrid =
                                    plotGrid // Prepend[plotRowHeader] // Transpose //
                                    Prepend[plotColumnHeader];

                                    GraphicsGrid[graphicsGrid]


                                    enter image description here






                                    share|improve this answer









                                    $endgroup$



                                    You could construct Graphics for the row and column headings. Something like this. Would have to adjust the vertical / horizontal placement of the label text.



                                    plotGrid = Table[Plot[Sin[x], x, 0, 2 Pi], 2, 2];

                                    plotRowHeader =
                                    Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 2];

                                    plotColumnHeader =
                                    Table[Graphics[Style[Text["Label " <> ToString[i]], 12]], i, 3,
                                    4] // Prepend[Graphics[Style[Text["X"], 12]]];

                                    graphicsGrid =
                                    plotGrid // Prepend[plotRowHeader] // Transpose //
                                    Prepend[plotColumnHeader];

                                    GraphicsGrid[graphicsGrid]


                                    enter image description here







                                    share|improve this answer












                                    share|improve this answer



                                    share|improve this answer










                                    answered 5 hours ago









                                    Rohit NamjoshiRohit Namjoshi

                                    1,4921213




                                    1,4921213



























                                        draft saved

                                        draft discarded
















































                                        Thanks for contributing an answer to Mathematica Stack Exchange!


                                        • Please be sure to answer the question. Provide details and share your research!

                                        But avoid


                                        • Asking for help, clarification, or responding to other answers.

                                        • Making statements based on opinion; back them up with references or personal experience.

                                        Use MathJax to format equations. MathJax reference.


                                        To learn more, see our tips on writing great answers.




                                        draft saved


                                        draft discarded














                                        StackExchange.ready(
                                        function ()
                                        StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193846%2fgraphicsgrid-with-a-label-for-each-column-and-row%23new-answer', 'question_page');

                                        );

                                        Post as a guest















                                        Required, but never shown





















































                                        Required, but never shown














                                        Required, but never shown












                                        Required, but never shown







                                        Required, but never shown

































                                        Required, but never shown














                                        Required, but never shown












                                        Required, but never shown







                                        Required, but never shown







                                        Popular posts from this blog

                                        名間水力發電廠 目录 沿革 設施 鄰近設施 註釋 外部連結 导航菜单23°50′10″N 120°42′41″E / 23.83611°N 120.71139°E / 23.83611; 120.7113923°50′10″N 120°42′41″E / 23.83611°N 120.71139°E / 23.83611; 120.71139計畫概要原始内容臺灣第一座BOT 模式開發的水力發電廠-名間水力電廠名間水力發電廠 水利署首件BOT案原始内容《小檔案》名間電廠 首座BOT水力發電廠原始内容名間電廠BOT - 經濟部水利署中區水資源局

                                        Prove that NP is closed under karp reduction?Space(n) not closed under Karp reductions - what about NTime(n)?Class P is closed under rotation?Prove or disprove that $NL$ is closed under polynomial many-one reductions$mathbfNC_2$ is closed under log-space reductionOn Karp reductionwhen can I know if a class (complexity) is closed under reduction (cook/karp)Check if class $PSPACE$ is closed under polyonomially space reductionIs NPSPACE also closed under polynomial-time reduction and under log-space reduction?Prove PSPACE is closed under complement?Prove PSPACE is closed under union?

                                        Is my guitar’s action too high? Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern)Strings too stiff on a recently purchased acoustic guitar | Cort AD880CEIs the action of my guitar really high?Μy little finger is too weak to play guitarWith guitar, how long should I give my fingers to strengthen / callous?When playing a fret the guitar sounds mutedPlaying (Barre) chords up the guitar neckI think my guitar strings are wound too tight and I can't play barre chordsF barre chord on an SG guitarHow to find to the right strings of a barre chord by feel?High action on higher fret on my steel acoustic guitar