In a previous question I asked how to align a couple of graphics, each of which had three columns.
img1 = First[
Import["https://en.wikipedia.org/wiki/Georges_Cuvier#/media/File:\
Georges_Cuvier.png", "Images"]];
text1a = Text[
Style[ToString["Jean Léopold Nicolas Frédéric Cuvier"], Bold, 22]];
text1b = Text[
Style[ToString["(23 August 1769 - 13 May 1832)"], Bold, 16]];
col1 = Column[{
img1,
text1a, text1b}, Center]; disk =
Graphics[{Black, Disk[{0, 0}, {5, 8}]}]; img2 =
First[Import[
"https://en.wikipedia.org/wiki/Achille_Valenciennes#/media/File:\
Achille_Valenciennes01.jpg", "Images"]];
text2a = Text[Style[ToString["Achille Valenciennes"], Bold, 22]];
text2b = Text[
Style[ToString["(9 August 1794 - 13 April 1865)"], Bold, 16]];
To which MarcoB kindly added the following suggestion that I was able to use to bring the images and text into alignment.
Grid[
Transpose@{
{ImageResize[img1, 500], text1a, text1b},
{ImageResize[img2, 500], text2a, text2b}},
ItemSize -> {30, Automatic}
]
Unfortunately, short of generating two or three separate Grid
commands like the one above to place in a second row of similar figures and text, I can not seem to find the correct formulation of grouping constructs (ie {}
) to bring a create a table of 4 or perhaps 6 similar figures (ie. for this code assume that Cuvier and Valenciennes have instead figures and data for someone else in a row below the first row).
Not sure if I need multiple Transpose statements for each line or the correct structure of list configuration using {}
's. Tried multiple possibilities but none seem to permit me to place a 2x2 or 2x3 grid of {image,text,text} elements with a single command. Placing in a single command is essential so that the entire code block can be made invisible within a slide show so that only the output is visible. There must be a similar simple solution, but I must be overlooking something in attempting to construct it.
Again thanks in advance for the tutelage. More complex examples within the grid command documentation would be of help.