BarChart[{8,26}]

Plot[1-Exp[-x],{x,0,2}]

Graphics[Line[{{1,1-Exp[-2]},{1,0}}]]
Plot[1-Exp[-2 x],{x,0,2}]
Show[%,%%]

Export["2.eps",%1,"EPS"]