Is this a bug with GraphicsGrid?

Questions
,
1

Hi!
I am trying to reproduce a GraphicsGrid to visualize data as follows:

ofdata = ExampleData[{"Statistics", "OldFaithful"}];
GraphicsGrid[{
  {ListPlot[ofdata], DensityHistogram[ofdata, 20, "PDF"]},
  {Histogram3D[ofdata, 20, "PDF"], SmoothHistogram3D[ofdata]}
  }, ImageSize -> 400]

But the result was not the expected since the first ListPlot graphic was not shown (see figure below)

Capture.PNG
Capture.PNG413×328 22.1 KB

If I make the ListPlot isolated I success

ListPlot[ofdata]

Capture2.PNG
Capture2.PNG379×237 2.67 KB

I have Mathematica Version 12.1.1. I don’t know why this happens, is this a bug?.

Thanks for your comments!

2

I observe that size I related with the problem. If I change the size I obtain the expected result.

GraphicsGrid[{
  {ListPlot[ofdata], DensityHistogram[ofdata, 20, "PDF"]},
  {Histogram3D[ofdata, 20, "PDF"], SmoothHistogram3D[ofdata]}
  }, ImageSize -> Large]

Capture3.PNG
Capture3.PNG573×461 36.3 KB

3

Hi Diego

I evaluated your original code and got the expected output, I am running Wolfram Desktop V12.1.1 on Windows 10 Pro, so I guess it is related to your system.

screenshotofcode.jpg
screenshotofcode.jpg886×708 101 KB

4

Hi Ahmed

Oh I see! This allows me to suspect that it is my system.
Thanks!

5

If you couldn’t figure it out, you can always contact technical support