GraphicsGrid lost Callout featues with ListPointPlot3D?

Hello,
I find GraphicsGrid can only show the first picture’s callout.
May code

a = ListPointPlot3D[{{1, 2, 3}, {2, 1, 3}, {2, 3, 1}} -> {55, 56, 57},
   LabelingFunction -> Callout];b = ListPointPlot3D[{{1, 2, 3}, {2, 1, 3}, {2, 3, 1}} -> {55, 56, 57},
   LabelingFunction -> Callout];GraphicsGrid[{{a, b}}, ImageSize -> Full]

The second picture lost callouts.

GraphicsGrid seems to have all kinds of quirky behavior. In addition to the missing callouts, if you drag a corner to increase the size, the callouts get clipped and eventually just vanish.

Unless you really need a Graphics result use Grid instead. Callouts are displayed and manual resizing does not cause callouts to vanish.

Grid[{{a, b}}]

Ìf use Grid instead, the PlotLabel of each graphic will be in the too high position.

The text of the file exported by Grid can not be copied in PDF format, so there is still a need to use GraphicsGrid.

the PlotLabel of each graphic will be in the too high position

Please provide an example

The text of the file exported by Grid can not be copied in PDF format

What is wrong with this?

Export["grid.pdf", Grid[{{a, b}}]]

a = ListPointPlot3D[{{1, 2, 3}, {2, 1, 3}, {2, 3, 1}} → {55, 56, 57},
LabelingFunction → Callout, PlotLabel → “Hello”,
ImageSize → 500]; b =
ListPointPlot3D[{{1, 2, 3}, {2, 1, 3}, {2, 3, 1}} → {55, 56, 57},
LabelingFunction → Callout]; Grid[{{a, b}}]

Then you export graphics to pdf, you will see the text in it can’t be copied.