Arsthbt

Multi tool use

How should I respond when I lied about my education and the company finds out through background check?

Why did the EU agree to delay the Brexit deadline?

Yosemite Fire Rings - What to Expect?

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

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

Not using 's' for he/she/it

Store Credit Card Information in Password Manager?

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

Biological Blimps: Propulsion

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

copy and scale one figure (wheel)

Drawing ramified coverings with tikz

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

What does chmod -u do?

Redundant comparison & "if" before assignment

Did Swami Prabhupada reject Advaita?

GraphicsGrid with a Label for each Column and Row

On a tidally locked planet, would time be quantized?

Travelling outside the UK without a passport

The screen of my macbook suddenly broken down how can I do to recover

Open a doc from terminal, but not by its name

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

How could a planet have erratic days?

Which one is correct as adjective “protruding” or “protruded”?

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 $

graphics visualization

share|improve this question

asked 5 hours ago

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

1,089919

$endgroup$

add a comment | 

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 $

graphics visualization

share|improve this question

asked 5 hours ago

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

1,089919

$endgroup$

add a comment | 

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

graphics visualization

share|improve this question

asked 5 hours ago

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

1,089919

$endgroup$

share|improve this question

asked 5 hours ago

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

1,089919

share|improve this question

asked 5 hours ago

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

1,089919

asked 5 hours ago

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

1,089919

asked 5 hours ago

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

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]

share|improve this answer

edited 1 min ago

answered 40 mins ago

m_goldbergm_goldberg

87.7k872198

$endgroup$

add a comment | 

2

$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

4963

$endgroup$

add a comment | 

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]

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4921213

$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

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]

share|improve this answer

edited 1 min ago

answered 40 mins ago

m_goldbergm_goldberg

87.7k872198

$endgroup$

add a comment | 

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]

share|improve this answer

edited 1 min ago

answered 40 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

edited 1 min ago

answered 40 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

edited 1 min ago

answered 40 mins ago

m_goldbergm_goldberg

87.7k872198

answered 40 mins ago

m_goldbergm_goldberg

87.7k872198

answered 40 mins ago

m_goldbergm_goldberg

87.7k872198

2

$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

4963

$endgroup$

add a comment | 

2

$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

4963

$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

4963

$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

4963

answered 3 hours ago

MelaGoMelaGo

4963

answered 3 hours ago

MelaGoMelaGo

4963

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]

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4921213

$endgroup$

add a comment | 

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]

share|improve this answer

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4921213

$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,4921213

$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,4921213

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4921213

answered 3 hours ago

Rohit NamjoshiRohit Namjoshi

1,4921213