Kdtyjb

Why is so much work done on numerical verification of the Riemann Hypothesis?

What should you do if you miss a job interview (deliberately)?

Are the IPv6 address space and IPv4 address space completely disjoint?

Redundant comparison & "if" before assignment

How to explain what's wrong with this application of the chain rule?

How do I color the graph in datavisualization?

Is it possible to put a rectangle as background in the author section?

Added a new user on Ubuntu, set password not working?

Strong empirical falsification of quantum mechanics based on vacuum energy density

How do I find all files that end with a dot

Is there any references on the tensor product of presentable (1-)categories?

Drawing ramified coverings with tikz

If infinitesimal transformations commute why dont the generators of the Lorentz group commute?

Longest common substring in linear time

What does chmod -u do?

Fear of getting stuck on one programming language / technology that is not used in my country

Not using 's' for he/she/it

What does "Scientists rise up against statistical significance" mean? (Comment in Nature)

Problem with TransformedDistribution

Biological Blimps: Propulsion

What should you do when eye contact makes your subordinate uncomfortable?

Does an advisor owe his/her student anything? Will an advisor keep a PhD student only out of pity?

How do you make your own symbol when Detexify fails?

A social experiment. What is the worst that can happen?

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

2

$begingroup$

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

$begin{array}{cccc}
text{X} & Label1 & Label2& Label3\
Label4 & Plot1 & Plot2&Plot3\
Label5 & Plot4 & Plot5&Plot6\
Label6 & Plot7 & Plot8&Plot9\
end{array} $

graphics visualization

share|improve this question

asked 4 hours ago

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

1,079919

$endgroup$

add a comment | 

2

$begingroup$

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

$begin{array}{cccc}
text{X} & Label1 & Label2& Label3\
Label4 & Plot1 & Plot2&Plot3\
Label5 & Plot4 & Plot5&Plot6\
Label6 & Plot7 & Plot8&Plot9\
end{array} $

graphics visualization

share|improve this question

asked 4 hours ago

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

1,079919

$endgroup$

add a comment | 

$begingroup$

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

$begin{array}{cccc}
text{X} & Label1 & Label2& Label3\
Label4 & Plot1 & Plot2&Plot3\
Label5 & Plot4 & Plot5&Plot6\
Label6 & Plot7 & Plot8&Plot9\
end{array} $

graphics visualization

share|improve this question

asked 4 hours ago

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

1,079919

$endgroup$

share|improve this question

asked 4 hours ago

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

1,079919

share|improve this question

asked 4 hours ago

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

1,079919

asked 4 hours ago

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

1,079919

asked 4 hours ago

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

1,079919

3 Answers
3

active

oldest

votes

1

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

share|improve this answer

answered 3 hours ago

MelaGoMelaGo

4863

$endgroup$

add a comment | 

1

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

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

$endgroup$

add a comment | 

1

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

share|improve this answer

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198

$endgroup$

add a comment | 

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

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

1

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

share|improve this answer

answered 3 hours ago

MelaGoMelaGo

4863

$endgroup$

add a comment | 

1

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

share|improve this answer

answered 3 hours ago

MelaGoMelaGo

4863

$endgroup$

add a comment | 

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

share|improve this answer

answered 3 hours ago

MelaGoMelaGo

4863

$endgroup$

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

share|improve this answer

answered 3 hours ago

MelaGoMelaGo

4863

answered 3 hours ago

MelaGoMelaGo

4863

answered 3 hours ago

MelaGoMelaGo

4863

1

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

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

$endgroup$

add a comment | 

1

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

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

$endgroup$

add a comment | 

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

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

$endgroup$

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]

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4821213

1

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

share|improve this answer

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198

$endgroup$

add a comment | 

1

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

share|improve this answer

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198

$endgroup$

add a comment | 

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

share|improve this answer

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198

$endgroup$

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

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

TableForm[graphics, TableHeadings -> {rowHeaders, colHeaders}]

share|improve this answer

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198

answered 12 mins ago

m_goldbergm_goldberg

87.7k872198