(*  Read the file as pairs of values (x,y) *)
(*  One day I will figure out how to say HERE *)

xy = ReadList [ "/Users/jburkardt/public_html/math_src/graphics_examples/geyser_binned.txt", {Number,Number} ]

(* Mathematica needs X and Y to be separated *)

{x,y} = Transpose[xy]

(*  Create the image *)
(*  If I say TRUE for first Frame argument *)
(*  then "Minutes" shows up, *)(*  but also numeric, wrong, *)(*  axis junk *)

g1 = BarChart [ y, 
ChartLabels->x,PlotLabel->"Intervals between eruptions of Old Faithful",FrameLabel->{"<--- Minutes --->","<--- Frequency --->"},Frame->{False,True,True,True},
GridLines->{Automatic,Automatic}];

(* Display the image *)

Show [ g1 ]

(* Export the image. *)
(* I have to say HERE using a huge string *)

Export["/Users/jburkardt/public_html/math_src/graphics_examples/geyser.png", g1, "PNG" ]