With[{m = 1, s = 1/60},
 data1 = {
 {200, 3 m + 30 s},
 {200, 1 m + 15 s},
 {200, 8 m + 40 s},
 {200, 5 m + 45 s},
 {200, 15 m},
 {200, 15 m},
 {200, 5 m},
 {200, 7 m + 20 s},
 {200, 5 m},
 {200, 4 m + 30 s},
 {350, 3 m + 55 s},
 {350, 6 m + 55 s},
 {350, 4 m + 35 s},
 {350, 3 m},
 {350, 6 m},
 {350, 6 m + 10 s},
 {350, 15 m},
 {350, 4 m + 45 s},
 {350, 15 m},
 {350, 3 m + 15 s},
 {100, 5 m + 25 s},
 {100, 3 m + 40 s},
 {100, 6 m + 20 s},
 {100, 8 m + 15 s},
 {100, 15 m},
 {100, 14 m + 30 s},
 {100, 15 m},
 {100, 7 m + 46 s},
 {100, 15 m},
 {100, 1 m + 24 s}
};

data2 = {
{1, 3 m + 30 s},
{1, 1 m + 15 s},
{1, 8 m + 40 s},
{1, 5 m + 45 s},
{1, 15 m},
{1, 15 m},
{1, 5 m},
{1, 7 m + 20 s},
{1, 5 m},
{1, 4 m + 30 s},
{2, 1 m + 30 s},
{2, 15 m},
{2, 4 m + 15 s},
{2, 2 m + 30 s},
{2, 2 m + 30 s},
{2, 2 m + 25 s},
{2, 2 m + 15 s},
{2, 11 m + 30 s},
{2, 10 m + 35 s},
{2, 5 m + 40 s},
{2, 1 m + 25 s}};
]

data1 // N // TableForm

data2 // N // TableForm

mean[a_] := (Plus @@ a)/Length[a];

dev[a_] := Sqrt[
 (Plus @@ ((a - mean[a])^2)) / Length[a]
]

PrettyPicture[data_] :=
Module[
{errdata, xys, bars, p1, p2, p3},
 
 errdata =
 Function[a,
  {a, (#[[2]])& /@ Select[data, (a == #[[1]])&]}
 ] /@ Union[First[Transpose[data]]];

 xys = ({#[[1]], mean[#[[2]]]})& /@ errdata;
 bars = Function[a,
  Module[{x = a[[1]], y = mean[a[[2]]], e = dev[a[[2]]]},
   Line[{{x, y - e}, {x, y + e}}]
  ]] /@ errdata;

 p1 = Graphics[Join[{AbsoluteThickness[2]},
   (Line[{# + {-4,0}, # + {4, 0}}])& /@ xys]
 ];
 
 p2 =  ListPlot[xys,
  PlotJoined->True,
  PlotStyle->{Dashing[{0.005, 0.01}]},
  DisplayFunction->Identity];
 
 p3 = Graphics[Join[{AbsoluteThickness[0.3]},
   (Line[{# + {-3,0}, # + {3, 0}}])& /@ data]
   
 ];
 
Show[{Graphics[Join[
  {AbsolutePointSize[0.0001], Point[{0,0}],
  RGBColor[0.6,0.6,0.6],
   AbsoluteThickness[4]},
  bars]],
  p3, p2, p1},
  AxesLabel->{"Frames", "Minutes"},
  Axes->True,
  Ticks->{{0,50, 100,150,200,250,300,350}, Range[0,15]},
  PlotRange->All,
  AspectRatio->1,
  DisplayFunction->$DisplayFunction
]
]

pic = PrettyPicture[data1];

Display["picture1.eps", pic, "EPS"];

PrettyPicture2[data_] :=
Module[
{errdata, xys, bars, p1, p2, p3},
 
 errdata =
 Function[a,
  {a, (#[[2]])& /@ Select[data, (a == #[[1]])&]}
 ] /@ Union[First[Transpose[data]]];

 xys = ({#[[1]], mean[#[[2]]]})& /@ errdata;
 bars = Function[a,
  Module[{x = a[[1]], y = mean[a[[2]]], e = dev[a[[2]]]},
   Line[{{x, y - e}, {x, y + e}}]
  ]] /@ errdata;

 p1 = Graphics[Join[{AbsoluteThickness[2]},
   (Line[{# + {-0.05,0}, # + {0.05, 0}}])& /@ xys]
 ];
 
 p2 =  ListPlot[xys,
  PlotJoined->True,
  PlotStyle->{Dashing[{0.005, 0.01}]},
  DisplayFunction->Identity];
 
 p3 = Graphics[Join[{AbsoluteThickness[0.3]},
   (Line[{# + {-0.03,0}, # + {0.03, 0}}])& /@ data]
   
 ];
 
Show[{Graphics[Join[
  {AbsolutePointSize[0.0001], Point[{0.5,0}], Point[{2.3,0}],
  RGBColor[0.6,0.6,0.6],
   AbsoluteThickness[4]},
  bars]],
  p3, p2, p1},
  AxesLabel->{"", "Minutes"},
  Ticks->{{{1, "A"}, {2, "B"}}, Range[0,15]},
  AxesOrigin->{0.5, 0},
  Axes->True,
  PlotRange->All,
  AspectRatio->1,
  DisplayFunction->$DisplayFunction
]
]

pic2 = PrettyPicture2[data2];

Display["picture2.eps", pic2, "EPS"];