Why are Frame All and Labeling above multiple plots not working

Questions
1

Hi Community Group,

Plesae can you help !

It seems a simple question, but I am struggling with two questions:

Why are (1) Frame =>All and (2) Labeling (text) above multiple plots not working?

Please find file attached !

Grid[Partition[Join[
   {p1}, {p2}, {p3}], 3]
 , Frame -> All
 , FrameLabel[Style["Test: Labeling above multiple plots", Red, 18], 
  Alignment -> {Top, Center}]
 ]
2

It is best to post code on-line so one can see it. I myself do not like to open attachments.

To put a label on top of multiple plots can be done as follows:

9542Untitled.png
9542Untitled.png450×132 3.5 KB

p1 = Plot[Sin[x], {x, -Pi, Pi}];
p2 = Plot[Cos[x], {x, -Pi, Pi}];
p3 = Plot[Tan[x], {x, -Pi, Pi}];
Grid[{
  {Row[{"My three plots with one label"}], SpanFromLeft},
  {p1, p2, p3}},
 Frame -> All, Alignment -> Center]
3

Hi Nasser,

It looks very simple but I couldn’t find it.

Thanks for your excellent support…Jos