Plot improvement suggestion for "Error and Dimensionality" draft article by Nassim Nicholas Taleb

BetaAndUniform.m

(*See Figure 1 in https://dl.dropboxusercontent.com/u/50282823/Propagation.pdf*)
With[{a = 10, b = 20},
 Plot[{PDF[UniformDistribution[{0, 1}], f], 
   PDF[BetaDistribution[a, b], f]},
  {f, 0, 1},
  Filling -> Axis,
  AxesLabel -> {Text[Style["f", Italic]], "Pr"},
  PlotRange -> All,
  Ticks -> {Automatic, None}, 
  PlotLegends -> 
   Placed[SwatchLegend[{"Uniform", "Beta"}, LegendMarkers -> "Line", 
     LegendFunction -> "Frame", 
     LegendLayout -> "Column"], {{0.8, Top}, {Center, Top}}]]]