6

Something like this picture

enter image description here

I've tried to use ImageCollage with different weights and other conditions, but all of them arrange pictures arbitrarily. For instance

ImageCollage[{4 -> im0, 1 -> im1, 1 -> im2},  Background -> None] 

organize the images horizontally:

enter image description here

and so on.

rhermans
  • 36,518
  • 4
  • 57
  • 149
Slepecky Mamut
  • 1,762
  • 7
  • 15

2 Answers2

6
    SeedRandom@2;
    p = Table[BarChart[RandomReal[1, 5]], 7];

Grid[{{p[[1]], SpanFromLeft}, {p[[2]], SpanFromLeft, p[[3]], 
   SpanFromLeft}, Join @@ {p[[4 ;; 7]]}}, Frame -> All, 
 Alignment -> Center]

enter image description here

OkkesDulgerci
  • 10,716
  • 1
  • 19
  • 38
4
Module[{pl, w = 500, h = 100},
 pl[frac_] := Framed[
   BarChart[
    RandomReal[1, 5]
    , AspectRatio -> frac h/w
    , PlotTheme -> "Scientific"
    , ImageSize -> 0.9 {w/frac, h}
    ], ImageSize -> {w/frac, h}];
 GraphicsGrid[
  {
   PadRight[{pl[1]}, 4, SpanFromLeft],
   {pl[2], SpanFromLeft, pl[2], SpanFromLeft},
   {pl[4], pl[4], pl[4], pl[4]}
   }
  , ImageSize -> {w, 4 h}
  , Spacings -> {0, 0}
  ]]

Mathematica graphics

rhermans
  • 36,518
  • 4
  • 57
  • 149