Plot[{Log[x], 2},  {x, 1/Exp[1], Exp[1]},  AxesOrigin->{0,0},Filling->{1->{2}}, FillingStyle->Green,AxesStyle->Directive[Black,16],AxesLabel->{x,y}, PlotStyle->{Thickness[.02],Thickness[.02]},PlotStyle->Thick,TicksStyle->Thickness[.05]]