xticks = Table[{n, Rotate[ToString[n], -40 Degree]}, {n, 0, 10, 1}];
xticks1 = Table[{n, Rotate[ToString[n], 50 Degree]}, {n, 0, 10, 1}];

Zoom := Plot[z, {z, 0, 1}, PlotRange -> {{0, 1}, {0, 10}},
  Axes -> False, Frame -> True,
  FrameLabel -> {Text[Style["time/[Tau]", 18, Italic]],
    Text[Style["Position/[Lambda]", 18, Italic]]},
  PlotStyle -> {{Thickness[0.0014], Blue}},
  FrameStyle -> {{Thickness[0.009],
     Thickness[0.009]}, {Thickness[0.009], Thickness[0.009]}},
  FrameTicksStyle -> Directive[Black, 14],
  FrameTicks -> {{xticks1, None}, {{0, 0.2, 0.4, 0.6, 0.8, 1}, None}},
   ImageSize -> {Automatic, 300}]

RotateFit :=
 Rotate[Plot[-0.1 y*y, {y, 0, 10}, Frame -> True, Axes -> False ,
   FrameLabel -> {Text[Style[" ", 18, Italic]],},
   PlotRange -> {{0, 10}, {0, -9}},
   PlotStyle -> {{Thickness[0.014], Orange}},
   FrameStyle -> {{Thickness[0.009],
      Thickness[0.009]}, {Thickness[0.009], Thickness[0.009]}},
   FrameTicksStyle -> Directive[Black, 14], AspectRatio -> 0.4,
   FrameTicks -> {{{6, 4, 2}, None}, {xticks, None}},
   ImageSize -> {278, Automatic}], Pi/2]

GraphicsRow[{Zoom, RotateFit}, Spacings -> -188, Alignment -> Top,
 ImageSize -> 800]