A141285 = Cases[Import["https://oeis.org/A141285/b141285.txt", 
     "Table"], {_, _}][[All, 2]];
A194446 = Cases[Import["https://oeis.org/A194446/b194446.txt", 
     "Table"], {_, _}][[All, 2]];
A206437 = Cases[Import["https://oeis.org/A206437/b206437.txt", 
     "Table"], {_, _}][[All, 2]];

diagram[n_] := Module[{y = PartitionsP[n], l, iy, in},
   If[n > 28, 
    Print["n>28 is not supported by bfile sizes listed above"]; 
    Exit[]];
   l = ConstantArray[Null, {y, n}]; c = 1;
   For[iy = y, iy >= 1, iy--,
    For[in = 1, in <= A194446[[y - iy + 1]], in++,
     l[[iy + in - 1, A141285[[y - iy + 1]]]] = A206437[[c++]]]];
   Grid[l, 
    Frame -> {None, None, 
      Table[{{y + 1 - i, y + A194446[[i]] - i}, {1, A141285[[i]]}} -> 
        True, {i, y}]}, Spacings -> {1.7, 1}]];
diagram[8] (* ~~~~ *)