fgraph = Plot[1 - x^2
  - 0.5654788166963185 E^(-2.25 (-0.2 + x)^2)
  - 0.5654788166963185 E^(-2.25 (0.2 + x)^2), {x, -1, 1},
  AxesOrigin -> {-1, 0}];
ggraph = ListPlot[
  {{{-0.2, 0}, {-0.2, 0.5}}, {{0.2, 0}, {0.2, 0.35}}},
  Joined -> True, PlotRange -> {{-1, 1}, {0, All}},
  AxesOrigin -> {1, 0}];
GraphicsColumn[{ggraph, fgraph}, Automatic, -112]